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ABSTRACT 

Finance  has  been  the  prime  motivation  in  many  recent 
espionage  cases.  This  thesis  expanded  the  prototype 
Manpower  Financial  Tracking  Expert  System  (MFTES)  that 
analyzes  individual  financial  profiles  in  order  to  detect 
the  potential  of  an  employee  to  engage  in  espionage 
activities.  The  architecture  of  MFTES  has  modules  that 
capture  Control  Strategy,  Taxonomy  of  Concepts,  Expert 
Rules,  and  Numerical  Processing.  During  evaluation,  it 
successfully  followed  the  documentary  trail  for  75 
employee  credit  reports  and  made  inferences  about  their 
po  tent  i  al  r  i  sks . 


THESIS  DISCLAIMER 
The  reader  is  cautioned  that  computer  programs 
developed  in  this  research  may  not  have  been  exercised  for 
all  cases  of  interest.  While  every  effort  has  been  made, 
within  the  time  available,  to  ensure  that  the  programs  are 
free  of  computational  and  logic  errors,  they  cannot  be 
considered  validated.  Any  application  of  these  programs 
without  additional  verification  is  at  the  risk  of  the  user. 
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I .   INTRODUCTION 

The  use  of  espionage  by  hostile  forces  to  gain  access 
to  classified  information  is  a  clear  threat  to  our 
government.  The  effect  of  espionage  is  not  always  readily 
apparent  but  there  can  be  significant  and  irreparable 
damage  to  our  national  security.  The  motives  for 
espionage  are  many.  Whether  it  is  committed  for  money, 
personal  gain  or  for  political  reasons,  the  prevention  of 
espionage  has  become  a  high  priority  of  our  security 
forces.  In  most  cases,  including  those  of  convicted  spies 
FBI  agent  Richard  Miller,  the  National  Security  Agency's 
Ronald  W.  Pelton,  and  the  Navy's  John  Walker,  financial 
gain  has  been  the  prime  motivation.  CRef.  13 

Enormous  resources  ar&  required  to  detect  and  prevent 
espionage.  The  money  spent  and  manpower  employed  to 
identify,  locate  and  then  apprehend  a  spy  can  only  be 
Justified  when  compared  to  the  loss  of  information  vital  to 
our  national  security.  Miller,  Pelton  and  Walker,  and 
other  similar  cases,  created  clearly  identifiable 
documentary  trails.  Rosa  concluded  that  if  there  had  been 
a  computer  system  automatically  tracking  individuals' 
income  and  spending,  it  could  have   alerted  the  authorities 


in   tin)©   to   limit,   if  not  prevent,  the  resulting  damages 
CRef.  2]. 

Currently  the  Defense  Investigative  Service  (DIS) 
obtains  paper  credit  reports  on  subjects  undergoing 
background  investigations  for  positions  reguiring  top 
secret  clearance.  These  documents  are  reviewed  for 
derogatory  information  revealing  financial 
irresponsibility,  which  may  be  cause  for  denial  or 
revocation  of  clearance  eligibility  by  the  cognizant 
adjudicating  authority.  Under  current  procedures  all 
credit  reports,  both  those  with  varying  degrees  of 
negative  information  and  those  that  are  'clean',  are 
produced  in  paper  format  and  individually  reviewed  by  DIS 
personnel.  It  will  become  increasingly  important  for  DoD 
to  automate  this  process  as  much  as  possible  since 
stabilized  or  even  decreasing  human  resources  are  now 
anticipated.  CRef.  3] 

At  the  same  time  the  role  of  finances  in  so  many  recent 
espionage  cases  has  led  to  calls  for  increased  use  of 
credit  checks,  even  to  the  point  of  including  them  as  part 
ot  investigations  for  secret  level  clearances.  A  1985 
report  to  the  Secretary  of  Defense  by  the  commission  to 
review  DoD  security  policies  and  practices  recommended 
expansion  of  the  investigative  scope  for  a  SECRET  clearance 
to  include   a  credit   check  of  the  subject  CRef.  A- ,  p.  93. 
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Clearly  desirable  is  a  streamlined  process  in  which  the 
generation  of  paper  is  kept  to  a  minimum  and  human 
resources  are  devoted  only  to  those  cases  with  derogatory 
indications  CRef.  33. 

The  purpose  of  this  thesis  has  been  to  more  fully 
develop  the  prototype  MANPOWER  FINANCIAL  TRACKING  EXPERT 
SYSTEM  (MFTES).  MFTES  analyzes  individual  financial 
profiles  in  order  to  detect  the  potential  of  an  employee 
involving  himself  in  espionage  activities.  The  prototype 
was  developed  by  Sivasankaran  and  Bui  CRef.  13  of  the  Naval 
Postgraduate  School  ( NPS ) ,  Monterey,  California.  The 
prototype  was  sponsored  by  the  Defense  Personnel  Security 
and  Research  Center  ( PERSEREC )  as  part  of  its  effort  to 
improve  the  DoD  personnel  security  program  through 
increasing  the  use  of  automated  data  and  techniques. 

the  thesis  is  organized  as  follows:  Chapter  II  provides 
background  on  the  evolution  of  expert  systems,  on  the  MFTES 
prototype  and  its  expanded  development.  The  MFTES 
implementation  is  discussed  in  Chapter  III,  followed  by  a 
discussion  of  the  evaluation  tests,  the  expanded  system's 
hardware  and  software  requirements  and  the  conclusions  and 
recommendations  m  Chapter  IV.  Appendix  A  is  a  listing  of 
the  MFTES  source  code  and  Appendix  B  is  a  listing  of  the 
I'Jci  account  conditions  (remarks)  used  in  the  TRW  credit 
ra  t  1  ng  system . 
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I  I .   BACKGROUND 

A.   HISTORY  OF  EXPERT  SYSTEMS 

"An  expert  system  is  a  method  for  handling  real-world, 
complex  problems  requiring  ai-n  expert's  interpretation  and 
which  solves  these  problems  using  a  computer  model  of 
expert  human  reasoning.  It  reaches  the  same  conclusions 
that  a  human  expert  would  reach  if  faced  with  a  similar 
problem."  CRef.  5]  The  heuristics  and  rules  that  make  up  a 
human  expert's  knowledge  are  transferred  into  the  rule-base 
and  inference  engine  of  the  expert  system.  The  facts 
within  the  rule  base  can  be  represented  in  many  ways  but 
a.re  usually  in  the  form  of  an  IF... THEN  relationship.  The 
inference  engine  contains  the  strategies  by  which  the 
expert  system  orders  the  rules,  facts  and  goals  to  reach  a 
cone lus  ion . 

Expert  systems  have  been  in  use  for  over  15  years  and 
have  roots  to  the  pre-World  War  II  period  with  the 
development  of  Formal  logic  and  Cognitive  psychology. 
Since  that  beginning,  expert  systems  have  been  used  in 
many  different  types  of  commercial  applications.  Two 
early,  successful  systems  developed  at  Stanford  University 
were  DENDRAL  and  MYCIN.  DENDRAL ,  conceived  in  the  1960's, 
is   a   chemistry   expert   system   designed    to   examine   a 


spectroscopic  analysis  of  an  unknown  molecule  and  predict 
the  molecular  structures  that  could  account  for  that 
particular  analysis.  MYCIN,  developed  in  the  mid-1970's 
was  designed  to  aid  physicians  in  the  diagnosis  and 
treatment  of  meningitis  and  bacteremia  infections.  CRef. 
6,  p.  15]  Commercial  applications  in  the  1980's  cover  many 
different  fields  including  decision  making,  software 
maintenance  management,  software  design  and  development 
aids,  ocean  surveillance,  knowledge-based  tutors, 
information  management  and  weather  forecasting. 
Applications  in  the  military  are  just  as  widespread.  Some 
of  the  more  recent  efforts  include  RICA:  an  expert  system 
Tor  radar  image  classification,  ACES:  an  airborne 
communications  expert  system,  and  TARSIA:  a  system  that 
helps  track  underwater  contacts.  CRefs.  7  and  8] 

Practical  applications  for  expert  systems  abound. 
Whenever  human  experts  are  in  great  demand  and  short 
supply,  a  computer  based  consultant  can  help  amplify  and 
disseminate  the  needed  expertise.  An  expert  system  can 
capture  the  practical  experiential  knowledge  that  is  hard 
to  pin  down.  CRef.  93 

Li-edit  institutions  have  always  used  heuristic 
procedures  in  their  analysis  of  individual  financial 
profiles  in  order  to  assign  good  or  bad  risk  ratings. 
Although   such   analysis   is   not   considered  exact,  enough 
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advances  in  the  field  have  been  made  to  make  it  practical 
to  articulate  the  heuristics  in  the  examination  and 
interpretation  of  financial  data.  Many  of  these  heuristics 
appear  structurable  enough  to  be  captured  by  the  current 
expert  system  technology.  CRef.  1] 

One  industry,  financial  services,  is  emerging  as  the 
next  significant  user  of  expert  systems.  One  financial 
services  leader  in  expert  systems  implementation  is  New 
York-based  American  Express  Co. 

The  company  began  its  involvement  with  its  current  AI 
expert  system  approximately  2  1/2  years  ago.  It  uses 
a  customized  expert  system  called  the  Authorizer's 
Assistant  ( AA ) ,  which  was  designed  to  help  the  authorizer 
filter  through  credit  data.  American  Express  has  noted 
three  primary  benefits  derived  from  the  AA  system.  First, 
productivity  and  time  savings.  The  company  expects  207. 
time  reduction  in  credit  review  and  has  observed  a  96.57. 
accuracy  rate  to  date.  Second,  losses  associated  with  bad 
credit  risks  have  been  reduced  by  the  improved  screening 
process.  Third,  improved  customer  service  benefits  ar& 
expected  because  the  higher  percentage  of  quicker  approvals 
will  most  likely  increase  customer  satisfaction.  CRef.  10] 

Another  expert  system  user.  Equitable  Financial  Cos., 
has  produced  a  demonstration  model  that  evaluates  the 
underwriting  risk   of  someone   who  might   have  a  history  of 


alcohol  abuse.  Using  information  obtained  from  employers, 
doctors  and  so  on,  the  system  helps  identify  high-rxsk 
individuals  by  reading  between  the  lines.  The  RS.D  model  is 
generic  enough  that,  with  different  rules,  it  ca-n  be 
applied  to  other  underwriting  problems.  CRef.  103 

B.   SCOPE 

One  of  the  responsibilities  of  PERSEREC  is  to 
investigate  the  feasibility  of  using  existing  financial 
data  bases  to  monitor  the  financial  health  and  behavior  of 
individuals  holding  security  clearances. 

CRef.  11,  p.  33  Information  containing  credit  histories 
has  already  been  implemented  and  distributed  nation  wide 
through  large  database  systems  such  as  the  ones  managed  by 
I RW  LRef.  IJ.  "While  one  of  about  half  a  dozen  credit 
report  vendors  currently  used  by  DIS,  TRW  was  selected  for 
this  study  because  of  its  national  coverage  and  existing 
BSA  contract...."  [Ref.  33. 

1 RW  uses  102  credit  remarks  which  can  be  attributed  to 
an  individual's  credit  standing.  All  were  used  in  the 
Ml-  1  tb  expansion  and  are  included  in  Appendix  B.  Examples 
of  some  of  the  major  remarks  that  are  reported  by  credit 
bureaus  are  listed  in  Table  I. 


TABLE  I.   TRW  CREDIT  REMARKS  USED  IN  MFTES 

Report 

Abbreviat  ion      Exp lanat  ion 

INQUIRY  A   copy   of   the   credit   profile  has  been 

sent   to   this   credit   grantor   at   their 

request . 

BK  LIQ  REQ        Debt   included   in   or   discharged  through 
Bankruptcy  Chapter  7  or  11. 

BK  7  F-ILE  Voluntary  or  involuntary  Petition   in 

Bankruptcy;  Chapter  7- ( L iqu idat i on ) 
f i led. 

BK  7  DISC         Voluntary  or  involuntary  Petition   in 

Bankruptcy;  Chapter  7- ( Li  qui dat ion ) 
d  i  scharged . 

CD  TAX  LN  County  Tax  Lien. 

PD  COLL  AC        Paid   account/was    a   collection   account 
insurance  claim  or  education  claim. 

PD  WAS  180        Paid  account/was  delinquent  ISO  days. 

FORECLOSURE       Credit   grantor   sold  collateral  to  settle 
defaulted  mortgage. 

REPO  Merchandise   was   taken   back    by   credit 

grantor;  there  may  be  a  balance  due. 

CHARGE  OFF        Unpaid   balance   reported   as   a   loss   by 
credit  grantor. 

JUDGMENT  Judgment. 

COLL  ACCT  Account     seriously     past    due/account 

assigned  to  attorney  collection  agency  or 
credit  grantor's  internal  collection 
department . 

DELINQ  ISO         Account  delinquent  ISO  days. 

DELINQ  120         Account  delinquent  120  days. 

DELINQ  60         Account  delinquent  60  days. 

30  DAY  DEL        Account  past  due  30  days. 

B 


PHULOG  was  chosen  as  the  programming  language  because 
it  is  a  language  currently  used  in  a  wide  spectrum  of 
expert  system  applications.  CRef.  12D  Additionally,  PROLOG 
is  integrated  within  the  Arity/Expert  Development  Package, 
a  commercially  produced  collection  of  development  tools 
which  provide  the  basis  for  constructing  an  expert  system 
CRef.  IE]  The  Arity/Expert  Development  Package  was  chosen 
as  a  shell  for  MFTES  because  of  its  ability  to  handle 
medium  to  large  size  expert  systems,  its  control  mechanism 
for  controlling  the  way  in  which  information  is  ordered  or 
accessed,  and  its  facility  for  presenting  explanations  to 
the  reasons  behind  decisions.  "Arity  is  one  of  the  leading 
companies  in  the  Prolog  world  with  a  strong  reputation  for 
reliability  and  suppor t . . . and  the  package  has  a  proven 
record  of  commercial  success"  CRef.  13]. 

Initial  consideration  was  given  to  developing  the 
expanded  MFTES  on  the  NPS  mainframe  computer  because  an 
interface  to  TRW  Credit  System  reports,  also  generated  on  a 
mai'nframe,  could  then  be  more  easily  achieved.  However 
this  proved  infeasible  because  the  Arity/Expert 
Development  Package  is  not  configured  to  function  in  a 
mainframe  environment.  A  local  alternative  was  IBM's  own 
expert  system  development  application,  known  as  Expert 
System  Environment  ( ESE ) ,  which  was  produced  specifically 
for   the   mainframe   environment.      The   ESE   package   was 


temporarily  on  loan  to  the  Naval  Postgraduate  School  for  a 
six  month  trial  period.  ESE  was  considered  as  a  candidate 
for  the  MFTES  expansion  but  its  potential  loss  after  six 
months  and  the  lack  of  local  technical  support  suggested 
the  more  prudent  decision  was  to  continue  using  the 
Arity/txpert  Development  Package.  This  also  meant  the 
development  effort  could  continue  from  the  point  where  the 
MFTES  prototype  left  off  rather  than  having  to  duplicate 
code  already  produced. 

Another  reason  for  the  choice  of  a  microcomputer 
configuration  was  the  eventual  environment  in  which  MFTES 
would  be  used.  MFTES  was  intended  for  use  by  government 
security  officers  or  employees  responsible  for  reviewing 
personnel  credit  backgrounds,  and  because  they  could  be 
expected  to  operate  in  a  variety  of  different  locations 
(buildings,  ships,  etc.),  the  hardware  configuration  was 
expected  to  portable,  readily  available  and  easy  to  use. 
The  personal  computer  (PC)  appeared  perfectly  suited  for 
those  conditions. 

Ihe  only  funding  used  was  for  record  typing  services 
which  converted  75  actual  TRW  records  to  a  format  usable  by 
MFTES,  and  for  financial  consultant  services  that  helped 
define  the  heuristics  applied  by  MFTES. 


III.  IMPLEMENTATION 

A.   KNOWLEDGE  REPRESENTATION  OF  THE  FINANCIAL  PROFILE 

NFTES  represents  financial  analysis  expertise  through 
concepts  captured  by  frames.  Concepts  a.rB  defined  bv  their 
qualities  and  the  possible  values  or  properties  of  those 
qualities.  For  instance,  the  concept  Superpayer  may  have 
properties  such  as  monthly  payments,  that  range  up  to 
■£(£0)000,  and  the  number  of  active  creditors,  which  goes  up 
to  iOO.  Figure  3-1  shows  how  the  knowledge  and 
relationships  of  different  concepts  are  represented  in  the 
system . 

Concept  relationships  are  represented  using  the  notion 
oT  a  role.  For  example,  the  concept  PERSEREC  is  related  to 
the  concepts  CUSTOMER_PROF ILE ,  SUPERPAYER  and  BANKRUPT 
through  the  roles  CUSTOMER_PROF I LE_ I NFO ,  SUPERPAYER_ I NFG 
and  BANKRUPT_INFQ.  The  concept  PERSEREC  holds  information 
on  'the  profile  of  the  customer,  the  possibility  of  his 
being  a  Superpayer  and  his  potential  for  bankruptcy. 
Concepts  may  be  connected  through  a  series  of  intermediary 
concep  ts . 

Since  the  connections  ^re  captured  through  the  use  of 
roles,  a  'role-chain'  then  strings  the  various  concepts  in 
a  hierarchical  fashion.   The  lowest  level  concept  at 
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the   end   of   the   chain   is   represented   in   terms  of  its 
properties  or  values. 

It  is  also  possible  for  a  lowest  level  concept  to  have 
more  than  one  specific  value.  For  instance,  the  concept 
CONCLUSION  can  be  represented  with  one  of  the  following 
values:  TOO  MANY  ACCTS ,  SUPERPAYER ,  NORMAL,  SATISFACTORY, 
POOR,  VERY  POOR,  SERIOUS,  CRITICAL,  VERY  CRITICAL,  and 
POTENTIAL  BANKRUPT.  CRef.  1,  pp.  1^-18] 
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Figure  3.1   MFTES  concept  relationships 


B.   ARCHITECTURE  OF  MFTES  AND  EXAMPLE  CASES 

The   functional   architecture   of   MFTES  is  illustrated 
below  in  Figure  3.2.   The  expert  system  has  five  modules. 


TRW 
DATABASE 


CONTROL  STRATEGY 

CONCEPTS  REPRESENTATION 

RULES 

COMPUTATION 

EXPLANATION 

Figure  3.2   Architecture  of  MFTES 


The  first  module  consists  of  the  Control  Strategy  to  be 
employed  in  manipulating  the  rules  during  a  problem  solving 
situation.  The  Control  Strategy  also  determines  when  to 
access  the  static  knowledge  in  the  Concepts  Representation 
module  and  when  to  access  the  dynamic  knowledge  contained 
in  the  Computation  module.  The  system  takes  one  individual 
credit  report  at  a  time  as  its  input  from  the  TRW  database 
and  provides   its  conclusion   to  the   user.   An  Explanation 


module   is   also   available   to   provide   details   of  how  a 
conclusion  was  reached. 

A  sample  interaction  with  the  system  is  shown  in 
Figure  3.3  [Ref.  1,  pp.  14-183.  It  shows  a  NORMAL 
conclusion  was  reached  because  the  weight  of  the  current 
case  was  found  to  be  EXTREMELY  LOW.  The  determination  of 
EXTREMELY  LOW  was  made  because  the  case's  OVERALL 
CALCULATED  WEIGHT  was  found  to  be  10  which  was  less  than 
the  CUT  OFF  VALUE  of  40.  The  OVERALL  CALCULATED  WEIGHT  was 
determined  to  be  10  because  the  PRIVATE  RECORD  of  the  case 
contained  that  value-  A  closer  examination  of  the  PRIVATE 
RECORD  showed  that  there  was  some  MISCELLANEOUS  ITEM  which 
was  assigning  the  10  points.  Deeper  interaction  with  the 
system  would  determine  precisely  what  credit  remark 
contained  in  this  record  was  causing  the  value  of  10  to 
appear . 


The  person  is  : 

1 )  normal  /  1.0 
L  How  was   the  conclusion   of   the  current  case  - 
iudqed  to  be  normal  (1.000)  ?  ] 

Since  CIJ   the  above  weight  of   the  current  case  on 
a  range-2  is  extremely  low  (1.0) 
then  the  conclusion   of  the  current  case 
-S  is  normal  (1.0) 

prev  i  ous 
exp lain 
cont  i  nue 
L  How  was  above  weight  of  the  above  case  on  a 
range-2  judged  to  be  extremely  low  (1.000)  ?  1 
Since  CI]   the  overall  calculated  weight  of  the 
current  case  -2  is  10  (1.0)  and 
C2]   the  extremely  low  cut  off  value  of  the 
range  0-200  that  we  use-1  is  -40  (1.0) 

and   10  =<  ^0 
then  the  above  weight  of  the  current 

case  on  a  range-2  is  extremely  low  (1.0) 
L  How  was  overall  calculated  weight  of  the  current 
case  -2  judged  to  be  10  (1.000)  ?  ] 

Since  LI]   the  public  record  val  of  the  current 
case  -2  is  O  (1.0)  and 
C2]   the  private  record  value  of  the  current 
case  -2  is  10  (1.0) 

and   10  =  0  +  10 
then  the  overall  calculated  weight  of  the 
current  case  -2  is  10  (1.0) 
L  How  was  private  record  value  of  the  current  case 
-2  judged  to  be  10  (1.000)  ?  ] 
Since  CI]   the  calculated  weights  for  all  current 
and  paid  accounts  of  the  current  case 
-2  is  O  (1.0)  and 
L2]   the  calculated  weights  for  all 

delinquent  accounts  of  the  current  case 
-2  is  O  (1.0)  and 
L3]   the  calculated  weights  for  all 

miscellaneous  private  items  of  the 
current  case  -2  is  10  (1.0)  and 
10  =  O  +  O  +  10 

then  the  private  record    value  of  the 
current  case  -2  is  10  (1.0) 


Figure  3.3   Sample  interaction  with  MFTES 
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C.   RULE  FORMULATION  AND  STRUCTURE 

The  problem-solving  heuristics  involved  in  the 
financial  analysis  are  captured  in  the  form  of  rules. 
Rules  help  the  expert  system  manipulate  the  concepts,  their 
properties  and  values  so  a  conclusion  about  the  individual 
credit  report  can  be  developed.  Rules  were  represented 
using  conseguents  and  antecedents.  A  conseguent  consists 
of  a  single  goal,  whereas  the  antecedent  can  be  made  up  of 
one  or  more  goals.  A  goal  indicates  a  property  of  a 
concept  has  some  particular  value.   CRef.  1,  pp.  l''+-18] 

In  MFTES  a  simple  weighting  scheme  was  interleaved  with 
many  of  the  rules  to  add  up  a  preset  number  of  points  for 
each  negative  remark  occurring  in  the  credit  record.  The 
Idea  IS  similar  to  the  scheme  employed  in  traffic 
violations.  An  overall  conclusion  is  based  on  total  points 
scored  on  the  credit  record.  CRef.  1,  pp.  I'^-IS] 

Rules  were  written  following  the  same  structure  shown 
in  I  RW  '  s  Glossary  of  National  Status  Comments  CRef.  1 -^  J  . 
Ihis  explanatory  aid  for  deciphering  the  coded  report 
aobrev i at  ions ,  divides  the  102  credit  remarks  used  by  TRW 
tor  its  reports  into  two  broad  categories,  Items  of  Private 
Record  and  Items  of  Public  Record.  Figure  3.'^  shows  the 
MF 1 tb  rule  base  structure  further  subdividing  the  Private 
and  Public  Records  into  smaller  sets  containing  similar 
remar  ks . 
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The  Public  Record  is  made  up  of  a  two  sets,  one 
addressing  bankruptcy  and  liens  and  another  dealing  with 
related  miscellaneous  items.  Remarks  grouped  within  the 
bankruptcy  set  included  bankruptcy  adjustment  plans, 
bankruptcy  chapters  7,  11  or  13,  mechanic's  liens  and 
federal  or  city  tax  liens.  Remarks  within  the 
miscellaneous  items  set  included  judgments  and  suits. 

The  Private  Record  is  made  up  of  three  sets,  one 
addressing  current  and  paid  accounts,  one  dealing  with 
delinguent  accounts  and  the  other  also  dealing  with 
miscellaneous  items.  Remarks  within  the  current  and  paid 
accounts  set  included  all  paid  accounts  past  due  and 
current  accounts  that  were  collections.  Remarks  within  the 
delinguent  accounts  set  included  del inguenc ies  60  days  or 
greater  and  foreclosures.  Remarks  within  the  miscellaneous 
items  set  included  settled  accounts  and  charge  offs  now 
being  paid. 

OVERALL  WEIGHT  VAL 


PRIVATE 
RECORD 


PUBLIC 
RECORD 


LURR/PAID 
ACCNTS 


DELINQ 
ACCNTS 


MISC 
ITEMS 


BNKRPT 
ACCNTS 


MISC 
ITEMS 


higure  3 . '^   Rule  base  structure  for  credit  remarks 


D.   MFTES  OPERAflON 

MFTES  examines  a  TRU  report  by  first  determining  if  an 
individual's  credit  profile  is  one  that  indicates  he  is 
already  bankrupt  or  in  the  process  of  bankruptcy.  Next  it 
determines  if  potential  bankruptcy  is  indicated  or  if  a 
superpayer  condition  exists. 

Anyone  who  is  bankrupt  or  going  through  the  bankruptcy 
process  is  considered  a  high  risk.  The  loss  of  financial 
well  being  combined  with  access  to  classified  information 
makes  any  such  individual  vulnerable  to  compromise.  The 
sale  of  classified  information  for  money,  in  order  to 
improve  financial  position,  is  a  circumstance  that  might  be 
avoided  if  the  bankruptcy  condition  is  identified  early 
enough . 

Ihe  same  reasoning  applies  to  potential  bankruptcy. 
Anyone  finding  himself  going  so  deeply  into  debt  that 
bankruptcy  could  become  a  reality  is  also  considered  a 
risk  for  potential  espionage. 

-  A  superpayer  is  someone  sitting  at  the  opposite  extreme 
from  bankruptcy.  His  financial  position  appears  so  good 
that  bankruptcy  is  never  a  guestion.  A  superpayer's 
characteristics,  however,  should  raise  anyone's  eyebrows. 
His  credit  information  might  appear  flawless  showing  timely 
payments,  paid  off  debts  and  a  good  rating.  But  a 
comparison  of   a  superpayer's   monthly  expenses  against  his 
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expected  monthly  income  would  reveal  that  his  expenses 
exceed  his  income.  The  rationale  is  that  if  someone  is 
spending  more  than  it  appears  he  could  afford,  there  is  an 
external  source  of  income  which  the  individual  is  enjoying 
that  needs  close  examination.  CRef.  1,  p.  S]  The 
superpayer  is  also  considered  a  high  risk. 

If  any  of  the  bankruptcy,  potential  bankruptcy  or 
superpayer  conditions  are  not  initially  identified  the 
MPTES  then  evaluates  the  individual's  credit  record  for 
his  overall  financial  position.  A  weighting  scheme 
assigns  point  values  (weights)  to  each  of  the  different 
credit  remarks  found  in  the  credit  report.  These  weights 
a.r e  used  to  indicate  the  individual's  financial  position  on 
a  predefined  scale  that  ranges  from  Normal  to  Very 
Cr  i  t  ical . 

E.   CHARACTERISTICS  OF  FINANCIAL  PROFILE  ANALYSIS 

The  objective  of  financial  profile  analysis  was  to 
ascertain  what  financial  remarks  were  present  in  a  credit 
report  and  then,  based  on  the  number  and  combination  of 
those  remarks,  make  inferences  about  the  individual's 
overall  financial  position.  CRef.  1,  p.  63  The  financial 
profile  analysis  was  oriented  towards  discovering  two  kinds 
OT  signals,  whether  an  individual  was  stretching  beyond  his 
financial   means   and   was   a   candidate  for  bankruptcy,  or 
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whether   the   individual   was   spending   a   d ispropor t iona 1 
amount  of  his  income.  CRef.  1,  p.  6J 

It  should  be  noted  that  TRW  credit  records  ^re  stored 
on  magnetic  tape  and  these  had  to  be  translated  into  a 
format  usable  Tor  MFTES  in  a  microcomputer  environment. 
Applicable  portions  of  each  TRW  credit  record  examined  were 
extracted  and  reformatted  into  a  format  easily  utilized  by 
the  MFTES.  Figure  3.5  shows  the  employee  and  data  headings 
of  an  actual  case  (The  SSN  has  been  altered)  in  that 
format . 
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0)  . 

Figure  3.5   MFTES  case  format 

Some  Tinancial  information,  such  as  a\i  employee's  grade 
and  step  data,  is  not  contained  on  the  TRW  credit 
report  and  was  added  to  the  new  format  for  use  in 
determining  monthly   income.      This   specific   type  of 


salary  information  is  available  from  a  personnel  record 
or  database. 

F.   ANALYSIS  FOR  BANKRUPTCY 

The  first  step  was  to  determine  if  the  individual 
had  already  been  reported  bankrupt.  Bankrupt  accounts 
would  be  indicated  by  comments  starting  with  ' BK ' .  If 
an  individual  was  found  to  be  bankrupt  then 
administrative  action  is  left  to  the  discretion  of  the 
investigating  organization.  Other  less  drastic  but 
still  serious  situations,  such  as  a  bankruptcy  petition 
filed  or  dismissed  might  also  be  indicated.  In  either 
case  such  an  occurrence  might  warrant  further 
investigation  of  this  individual.  CRef.  1,  pp.  8-lOJ 

If  no  bankruptcy  credit  remarks  were  identified  the 
second  step  was  to  check  the  credit  report  for  the 
potential  of  a  bankruptcy  occurring.  This  was  done  by 
examining  all  credit  remarks  in  the  report,  determining 
their  overall  weight  value  and  then  comparing  that 
value  to  a  previously  established  cut  off  level  for 
potential  bankruptcy.  If  the  overall  weight  value 
exceeded  that  cut  off  level  then  a  potential  for 
bankruptcy  was  indicated.  The  rationale  is  that  any 
individual  accumulating  a  large  number  of  derogatory 
accounts  such   as  delinguent   or  collection  accounts  is 
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placina   himself   in   the   position  of  facing  potential 
bankrup  tcy . 

Another  indicator  of  potential  bankruptcy  is  the 
number  or  inquiries  shown  in  the  credit  report.  An 
inquiry  indicates  an  individual  has  approached  a  credit 
institution  to  borrow  money.  The  rationale  here  is 
that  if  several  inquiries  appear  in  the  report,  this 
shows  the  individual  was  in  desperate  need  of  money  and 
was  tryinq  hard  to  get  the  required  credit  by 
approaching  as  many  institutions  as  he  could.  Almost 
always  this  characteristic  is  an  indicator  of  an 
impending  bankruptcy.  CRef.  1,  pp.  10-12]  The 
drawback  to  this  rationale  is  the  uncertainty  of  just 
how  many  inguiries  constitute  too  many.  For  example, 
one  individual  might  have  over  30  inguiries  in  a  given 
period  if  he  was  seeking  credit  for  some  legitimate, 
though  semi-risky  business  venture  he  was  considering 
trying.  On  the  other  hand  another,  more  financially 
limited  individual,  desperate  for  cash,  might  have  only 
approached  up  to  eight  credit  institutions  before  he 
was  able  to  prevail  upon  a  credit  authorizer  that  he 
deserved  a  loan.  Since  there  was  no  sound  heuristic 
available  for  determining  when  too  many  inquiries 
became  a  derogatory  attribute,  the  inguiries  were 
worked  into  the  weighting  scheme  and  calculated  as  part 
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of  the  overall  weight  value.  Figure  3.6  illustrates 
the  flow  of  reasoning  used  by  MFTES  m  bankruptcy 
analysi  s . 
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Figure  3.6   Flowchart  for  Bankruptcy  Analysis 


G.   ANALYSIS  FOR  SUPERPAYER 

If  no  potential  bankruptcy  was  identified  then  the 
credit  report  was  examined  for  a  Superpayer  condition. 
In  this  case  an  individual's  discretionary  monthly 
income  was  compared  against  the  monthly  payments  shown 
in  his  TRW  credit  record.  Monthly  discretionary  income 
was  derived,  as  shown  in  Figure  3.7  by  computing  the 
employee's  disposable  income  minus  his  expenses. 

Disposable    income    was    determined    by    first 
calculating  an  employee's  annual   income-     The  Annual 
Income  Figure  was  obtained  by  comparing  grade  and  step 
information   to   the   General   Schedule   table  which  is 
completely  modeled  in  MFTES . 

Second  a  determination  was  made  if  the  individual 
was  married  or  not.  If  he  was  married  then  the  Annual 
Income  Figure  was  increased  by  hO  percent.  This  was  a 
heuristic  given  by  the  financial  expert  as  a  reasonable 
increase  in  income  that  a  working  spouse  (future 
program  refinement  must  make  a  distinction  between  a 
woi-kinq  and  non-working  spouse),  on  average,  will 
pro V ide . 


DISCRETIONARY  INCOME  =  DISPOSABLE  INCOME  -  EXPENSES 

DISPOSABLE  INCOME  =  ANNUAL  INCOME  FIGURE  (AIF) 
FROM  GS  SCHED 

:IF  MARRIED  THEN  AIF  =  AIF  *  1.6 

iDETERMINE  TAXES 
IF  AIF  <  10,000 

mtN    TAX     RATE    =    0% 
If-    AIF     <    30,000 

THEN  TAX  RATE  =  15V. 
ELSE  TAX  RATE  =  297. 

NET  RATE  =  1  -  TAX  RATE 

=  Alf-  ♦  NET  RATE 

EXPENSES  =  RENT  +  FOOD 

:RENT  FROM  ZIP    CODE/RENT  TABLE 
:FOOD  =  AIF  *  'dOV. 

MUNIHLY  DISCRETIONARY  INCOME  = 

DISPOSABLE  INCOME  -  EXPENSES 
12 

MUNIHLY  PAYMENTS  =  TOTAL  MONTHLY  BALANCES  DUE  *     107. 

IHEREFORE  IF: 

MONTHLY  PAYMENTS  >  MONTHLY  DISCRETIONARY  INCOME 

THEN      "SUPERPAYER" 
Figure  3.7   Monthly  Discretionary  Income 

Taxes  also  had  to  be  computed.  A  Tax  Rate,  0 
percent  if  the  annual  income  was  less  than  $10,000  or 
1^  percent  if  the  annual  income  was  less   than  $30,000, 
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was  applied  to  the  Annual  Income  Figure.  The  Net  Rate 
was  then  fiqured  by  subtracting  the  Tax  Rate  from  1. 
The  individual's  disposable  income  was  therefore 
calculated  by  multiplying  the  Annual  Income  Figure  by 
the  Net  Rate. 

Expenses  were  figured  by  calculating  the 
individual's  annual  Rent  plus  his  annual  cost  of  Food. 
A  more  complete  representation  of  expenses  would  take 
into  account  other  outlays  such  as  clothing, 
transportation,  insurance,  etc.  but  these  were 
considered  by  the  financial  expert  to  have  less  impact 
in  determining  a  Superpayer  condition. 

Annual  Rent  was  computed  by  referencing  a  table  of 
postal  zip  codes  that  were  cross  referenced  to 
geographically  established  rents.  In  MFTES,  a  portion 
of  this  table  was  constructed  for  the  Monterey — Naval 
Postgraduate  School  area  to  demonstrate  its  application 
in  Rent  computation.  This  information  is  not  available 
on  the  TRW  report  and  must  be  drawn  from  some  other 
database  (future  program  enhancement  could  have  the 
expert  system  acquire  data  from  multiple  databases 
before  analysis  begins). 

Food  was  calculated  by  multiplying  the  Annual 
Income  Figure  times  20  percent.  The  financial 
consultant  provided  this  heuristic   for  the  calculation 

27 


of  the  average  annual  amount  of  money  an  American 
family  spends  on  food.  Monthly  discretionary  income 
then  became  Disposable  Income  minus  Expenses  divided  by 
12  months. 

The  employee's  total  monthly  payment  was  computed 
trom  any  Balances  due  that  were  found  on  the  credit 
report.  The  Balances  due  for  each  account  were  summed 
together  and  then  multiplied  by  10*/..  This  rule  of 
thumb  from  the  financial  consultant  asserts  the 
average  family's  monthly  payment  on  a  balance  due  will 
not  generally  exceed  10  percent  of  that  balance. 

If  the  individual's  monthly  payments  shown  in  his 
I RW  credit  record  exceeded  his  discretionary  monthly 
income  then  a  superpayer  condition  existed.  If  no 
superpayer  condition  was  determined  then  MFTES 
examined  the  individual's  credit  report  for  an  overall 
we  ight  value . 

Another  conclusion  that  can  be  made,  and  which 
infers  a  potentially  detrimental  situation,  is  the 
accumulation  of  too  many  current  accounts.  The 
presence  of  several  current  accounts  connotes  two 
possible  situations.  First,  the  individual  might  be 
inadvertently  placing  himself  in  the  position  of 
becoming  overdrawn.  This  could  happen  if  he  suffers 
some  type  of  financial   setback  and   then  is   unable  to 
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ful-fill  payment  obligations  on  his  many  accounts. 
Second,  a  large  number  of  current  accounts  with  low 
balances  and  high  credit  lines  suggests  the  individual 
could  use  his  combined  total  credit  available  to 
further  extend  himself  into  an  unsound  financial 
position.  Thus  the  number  of  current  accounts 
appearing  in  a  credit  record  was  worked  into  the 
weighting  scheme  and  calculated  as  part  of  the  overall 
weight  value. 

H.   ANALYSIS  OF  OVERALL  WEIGHT  VALUE 

If  there  was  no  indication  of  bankruptcy  or 
superpayer  then  some  other  measure  of  an  individual's 
financial  position  was  needed.  In  order  to  fairly  and 
accurately  measure  the  effect  of  any  possible 
combination  of  credit  remarks  appearing  in  an 
employee's  credit  record,  an  algorithm  was  needed  that 
could  handle  the  complexity  of  all  combinatorial 
possibilities  for  the  102  different  remarks.  The 
weighting  scheme  for  overall  weight  value  that  was  used 
in  the  NFTES  prototype,  was  chosen  to  be  continued 
oecause  of  its  ease  of  use,  effectiveness  and 
flexibility  for  future  upgrade. 

the  overall  weight  value  was  determined  by  relating 
any  remarks   found  in   the  report  to  a  predefined  point 
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value  (weight).  These  points  were  based  a  financial 
expert's  best  estimate.  The  points  ranged  on  a  scale 
from  10  to  SOO .  Remarks  with  low  derogatory  value, 
such  as  a  current  account,  paid  account,  inquiry,  etc. 
received  the  least  number  of  points  (10)  for  each 
occurrence.  This  permitted  such  remarks  to  appear  in  a 
credit  report  without  significantly  impacting  the 
overall  weight  value,  although  any  large  accumulation 
of  these  remarks  would  begin  to  affect  it.  Remarks 
with  higher  derogatory  value,  such  as  bankruptcy, 
judgments,  liens  and  foreclosures  received  the  most 
points  (200)  for  each  occurrence.  This  ensured  that 
single  remarks  of  this  more  serious  type,  which 
significantly  affect  an  individual's  financial 
position,  had  an  immediate  and  heavy  effect  on  the 
overall  weight  value. 

bach  occurrence  of  a  remark  was  multiplied  by  its 
weight  and  all  remarks  were  then  summed  together  to 
produce  the  overall  weight  value.  That  overall  weight 
value  was  then  compared  to  a  scale  marked  with 
different  cutoff  levels.  The  cutoff  levels,  also 
provided  by  the  financial  consultant,  defined  different 
financial  positions.  >  For  example.  Figure  3.8  ( SSN  has 
been  altered)  shows  a  sample  case  with  two  current 
accounts,  a  120  day  delinquent  account  and  a  collection 
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account.  The  weights  assigned  to  each  remark  and  the 
current  cut  off"  levels  are  also  shown.  The  weight 
assigned  for  each  current  account  is  10,  for  the 
delinquent  account  is  "^0,  and  for  the  collection 
account  is  200.  The  overall  weight  value  then  is  260 
((2  curr_accts  *  10)  +  (1  delinq_120  *  ^0 )  +  (1 
CQll_acct  ♦  200)).  A  conclusion  of  Very  Critical  is 
assigned  to  any  value  that  exceeds  the  Extremely  High 
Cut  Off  Level  of  200.  If  the  overall  weight  value  had 
exceeded  -^00  then  a  potential  bankruptcy  would  have 
been  indicated.  This  appears  reasonable  because  it 
shows  the  employee,  although  supporting  two  current 
accounts,  experiencing  difficulty  paying  off  other 
debts,  a  fact  that  might  be  significant  to  his  future 
financial  position.  This  also  shows  the  emphasis 
(large  weight  value)  given  to  the  appearance  of  a 
collection  account  in  the  credit  record. 


employee( '555-55-5555' ,2, 9, single, '939^3' ) . 
data(_,curr_acct ,386,285,r, 186,2000, 17^9,86,0) . 
data(_,curr_acct ,986, ^85, r ,886,0,0,0,0) . 
da ta (_, de linq_ 180,686, 685, r ,^86, 1 ,^78,360, 1 ) . 
data ( _ , CO  1 1 _acc  t , 986 , _ , r , 786 , 599 ,0,0,0). 

we  igh t_per_status ( curr_acc  t , 10 )  . 
weight_per_status(del  inq_120,'^0)  . 
weight_per_status(col l_acct , 200 ) . 

PB_CUT_OFF_VAL  is  ^00. 
EXTREMELY_HI6H_CUT_0FF_VAL  is  200. 
VERY_HIGH_CUT_OFF_VAL  is  170. 
HI6H_CUT_0FF_VAL  is  120. 
MODERATELY_HIGH_CUT_OFF_VAL  is  100. 
LQW_CUT_OFF_VAL  is  80. 
EXTREMELY_LQW_CUT_OFF_VAL  is  ^0. 
VERY  LOW  CUT  OFF  VAL  is  10. 


Figure  3.8   Sample  case  with  weights  and  cutoff  levels 


I^-   EVALUATIONS,  CONCLUSIONS  AND  RECOMMENDATIONS 
A.   EVALUATION  RESULTS 

During  the  evaluation  phase  of  the  expanded  MFTES 
all  cases  that  were  tested  were  real  credit  reports 
provided  by  PERSEREC .  Each  case  was  manually 
translated  into  a  usable  format  before  being  run 
through  the  expert  system.  Of  the  75  cases  evaluated, 
SIX  required  additional  data  input  from  the  operator 
before  MFTES  was  able  to  arrive  at  a  conclusion.  These 
cases,  it  was  determined,  had  data  improperly  entered 
and  were  corrected  before  being  re-evaluated.  In  all 
cases  the  resulting  conclusion  from  MFTES  matched  the 
prede bermined  judgment  of  the  testers.  This 
duplicated  the  results  of  the  2-^  hypothetical  cases 
that   were    used   during   the   project's   development. 

Additional  tests  were  required  to  more  thoroughly 
evaluate  the  MFTES  conclusions  against  those  of  a  human 
financial  expert  not  previously  associated  with  the  75 
test  cases.  An  evaluation  period  with  a  financial 
consultant  for  this  continued  testing  had  been  arranged 
but  was  not  performed  because  of  extenuating 
circumstances.  Observations  made  during  testing  were: 
-  Some  of  the  weights  assigned  to  credit  remarks  were 

judged   to   be   slightly   higher  than  necessary  and 

caused  greater  overall  weights   to  show.    This  did 
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not  appear  to  appreciably  change  any  MFTES 
conclusions  but  a  'fine-tuning'  of  the  weights 
would  make  the  system  more  accurate. 
-  The  run-times  experienced  during  the  analysis  of 
each  case  were  observed  to  be  ranging  from  3  to  as 
much  as  23  minutes  per  case.  The  extreme  was 
caused  by  three  factors.  First,  the  program 
involved  considerable  depth  and  breadth  in  its 
search  strategies.  Second,  the  Arity  expert  system 
shell,  which  had  exceeded  its  limits  in  stack  space 
several  times  during  development,  was  probably 
reaching  its  limits  once  again.  Third,  the  S  Mhz 
microcomputer,  on  which  MFTES  was  installed  was  too 
slow . 

B.   HARDWARE  AND  SOFTWARE  REQUIREMENTS 

The  MFTES  was  initially  developed  and  set  up  to  run 
on  an  8  Mhz  IBM  PC,  or  compatible,  with  6'^OK  RAM  and  a 
hard  disk  (minimum  10  meg  recommended  for  secondary 
storage).  This  was  judged  inefficient  however  because 
of  the  large  size  of  the  program  and  the  inherent  time 
delays  that  causes.  In  the  latter  stages  of 
development  a  3  megabyte  virtual  disk  was  used  to  run 
the  program.  MFTES  consumed  approximately  2.5  megs  of 
the   virtual   memory   available   and   was  significantly 
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Taster.  For  example,  the  conclusion  in  a  NORMAL  case 
was  reached  in  3  to  5  minutes,  while  using  virtual 
memory,  and  took  'dO  to  30  minutes  without  virtual 
memorv.  In  order  to  obtain  more  efficient  run  times  a 
16-c:0  Nhz  CPU  IS  recommended. 

The  soTtware  required  to  work  with  the  proqram 
(Aritv  txpert  System)  is  available  off  the  shelf.  No 
special  training  requirements  are  considered  necessary 
other  than  basic  familiarization,  depending  on  the 
user's  computer  literacy.  Operation  of  MFTES  is  user 
friendly  and  driven  by  the  interface. 

C.   SUCCESSES 

The  program  was  successful  m  i ncorporat i nq  all 
credit  remarks  used  by  TRW  and  in  developinq  the 
necessary  ruies  for  producinq  a  valid  conclusion  about 
an  employee's  financial  position.  In  other  words  it 
successfully  followed  the  documentary  trail  on  an 
employee's  credit  report  and  made  an  inference  about 
his  potential  risk. 

(-»  sige  DeneTit  is  that  the  proqram  could  also  be 
used  as  a  training  aid  for  potential  credit  record 
analysts.  (he  explanation  facility's  display  of  how 
conclusions  were  reached  is  an  excellent  learning  tool. 


D.   LIMITATIONS  AND  FUTURE  IMPROVEMENTS 

The  MFTES  is  limited  to  processinq  a  sinqle  record 
at  a  time.  This  must  be  improved  if  the  scrutiny  ot 
thousands  of  personnel  holding  security  clearances  has 
any  chance  of  becoming  efficient.  A  batch  processing 
program  that  can  review  large  numbers  oT  records  and 
'kick  out  those  displaying  normal  attributes  would  be 
beneficial.  Such  a  program  could  be  used  as  a  filter 
for  the  expert  system,  greatly  reducing  the  number  ot 
reports  that  would  be  forwarded  to  MFTES  for  analysis. 
Additional  rules  can  be  added  to  improve  the  level  of 
expertise  provided  by  a  financial  expert. 

Multiple  complimentary  types  of  expertise  can  be 
added  to  help  provider  broader  analysis  profiles. 
Examples  include  using  medical  and  law  enforcement 
expertise  to  develop  psychological  and  criminal 
profiles.  The  expert  system  could  provide  conclusions 
specific  to  the  type  of  profile  desired  or  to  an 
overall  combination  of  all  types  available. 

An  interface  can  be  developed  that  pipes  TRW  and 
DoU  data  directly  into  the  expert  system.  This  could 
be  extended  to  cover  any  external  database  that  the 
expert  system  reguired  data  from  in  order  to  complete 
its  calculations.  Examples  include  the  grade  and  step 
information  for  monthly  pay   calculation  and   zip  codes 
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with  their  associated  rental  expenses  tor  rent 
calculation.  This  kind  of  improvement  would  eliminate 
the  extra  step  that  now  occurs  in  translatinq  records 
to  a  more  usable  format  before  analysis. 

Ihe  user  interface,  although  stra i qh tf orward  and 
easy  to  use,  is  plain  and  could  be  improved  by  adding 
color,  graphics  and  additional  explanation  features. 
An  on-line  help  facility  could  further  enhance  use. 
Implementation  of  voice  interaction  through  a 
Keytronics  keyboard  could  facilitate  an  analyst's  use 
of  the  expert  system's  explanation  module.  The  analyst 
could  then  more  naturally  'pose'  the  guestions  he 
wanted  answered  without  having  to  worry  about  exact 
keyboard  entry. 

Ihe  expert  system  can  have  incorporated  the  ability 
to  monitor  TRW  data  longitudinally  for  the  same 
subiects.  This  would  provide  a  capability  for 
comparisons  of  individuals  and  performing  trend 
ana  lysis. 

ine  overall  weight  value  calculation  alaorithm 
could  be  revised  for  improved  accuracy  and  efficiency, 
kun-time  efficiency  as  well  as  stack  and  storage 
oroblems  might  also  be  improved  with  a  newer  version  of 
the  Hrity  software. 


Kinaliy?  more  testing  needs  to  be  done.  More  reai- 
world  cases  should  be  evaluated  with  different  analysts 
for  comparison.  Only  a  thorough  testing  of  MFl ES  would 
ensure  weaknesses  were  properly  identified.  Possibly  a 
benchmark  program  designed  by  financial  analysts  who 
currently  perform  credit  record  screening  could  be 
admi  ni stered . 


APPENDIX  A  -  SOURCE  CODE 
This  appendix  contains  the  source  code  for  the 
expanded  MFTES.   This  includes  the  front  end  file 
(CRD13.ARI),  the  calculations  file  (CRD13.CAL),  the 
rules  file  (CRD13.RUL),  and  the  taxonomy  file 
(CRD13.TAX).   The  source  code  was  included  because  it 
was  felt  necessary  to  provide  a  hardcopy  for 
documentation  and  maintenance,  and  to  give  anyone  who 
wanted  a  convenient  and  complete  way  of  examining  the 
program's  structure. 

It  IS  recognized  that  no  one  will  probably  input 
the  code  from  this  documentation.   Arrangements  can  be 
made  to  obtain  a  copy  of  the  software  through  Prof. 
Si vasankaran  or  Lcdr .  Salazar  at  the  Naval  Postgraduate 
Schoo  I  . 


/*  CRD13.ARI   (FRONT  END  FILE)  ■><■/ 

/-«•  This  section  of  code  starts  the  record  reading 
process.   Unce  a  record  has  been  analyzed  the 
information  is  discarded  in  favor  of  another  record  of 
exit.  */ 

start 

:-      nl ,  repeat , 
els, 

tmoveCtD,  10)  , 
iA)c(bO,^a)  , 
tmove( 15,10), 
wc (bO,^d) , 
tmove( 10, 10) , 
put (7) ,put (7) , 

write('  Input  file  to  be  interpreted:  '), 
read ( Name  of  f  i le )  , 
asserta( current  case ( Name_of_fi le ) ) , 
CName  of  file], 

[  '.  run  once  '.  3  , 
write(*Would  you  like  another  consultation   ?$), 

read ( X )  ,  gc (ful 1 )  , 

abolish(data/10) ,abol ish ( ing/S) , 

abo 1 ish (emp loyee_in_process/^ ) , 

abo 1 ish ( current  case/ 1 ) , 

abolish(balance_due/l ) , 

abolish(total_monthly_expenses/l ) , 

nl ,   X  \=  yes  ,  X  \=   y , 
els, 

tmove(a,33) , 
wc ( 15,^2) , 
tmove( IE, 33) , 
wc ( 15,^2) , 
tmoveC 10,35) , 
put (7) , put (7) , 
wr  i  te  (  '  :  Qu  i  1 1  i  nq  '.  '  )  , 
tmove(20,0) . 


run  once 

els, 

tmove(5, 10) , 
wc (50,^2) , 
tmoveC 15, 10) , 
wc (50,^2) , 
tmove( 10,10) , 
wa(79, 137) , 


put (7) ,put (7) ,put (7) ,put (7) , 

write(  '  W  U  R  K  I  N  G  I   '.   !   '  ) 

tmove( 17,10), 
/♦    read( Y) ,    */ 

root  instance ( perserec , I , N ) , 

eval (concludediconclusion  info, I ,Val ,true,CF) , 

f  ai  1  . 
run  once  : -   ni . 


/*  CRD13.CAL  (CALCULATIONS)  ♦/ 

/♦  Ihis  section  of  code  includes  computations  as  layed 
out  in  the  rules.  Each  module  retrieves  a  rule- 
speciTied  piece  of  data  for  calculation.  */ 


get  ssn( I , personal ,ssn, CSSN/ 1 .0] )  :- 

employee(SSN,GS,SAL_STEP,M  STATUS, ZIP) ,gc(full ) . 

/♦   This  module  for  future  use  in  requesting  records  by 
SSN 

write(' Input  Social  Security  of  Employee  to  be 

screened : ' ) , 

wcaCS*,  '«,7^)  ,put  (7)  , 
read (SSN) , 

emplayee(SSN,GS,SAL_STEP,M  STATUS, ZIP) , 
assert(employee(SSN,GS,SAL_STEP,N_STATUS,ZlP) ) .   */ 


get  m_status(  I  , persona  1 , m_st a tus , CM_STATUS/ 1,0]):- 
employee(SSN,6S,SAL_STEP,M_STATUS,ZIP) . 


aet  z ip ( I , personal , z ip , CZIP/ 1 . 0] )  :- 

employee(SSN,GS,SAL_STEP,M  STATUS, ZIP). 


/♦   Ihe  1988  General  Schedule  for  federal  employees 

gs  sal  table(  1  , 1  ,981  1  )  . 
gs_sal_table( 1 ,2, 10139) . 
gs_sal  table( 1 ,3, 10^65) . 
Qs_sal_table( 1 ,^, 10791  )  . 
gs_sal_table(l,5,11117) . 
qs_sal_table( 1,6,1 1309) . 


gs_sai  table( 1 ,7, 1 1631 ) . 
gs_sal_table( 1,8,1 1955) . 
gs_.sai_table(  1  ,9,  1  1970)  . 
gs_5al_table( 1,10, 12275) . 
gs_sai  table(2, 1 , 11032) . 
gs_sal_table(2,2, 1 129^) . 
gs_sai  _ table (2, 3, 1 1659)  . 
gs_sal_table(2,^, 1 1970) . 
gs_sal_table(2,5, 12103) . 
qs_sai_table(2,6, 12^59) . 
g5_sal. table(2,7, 12815) . 
gs_sal_table(2,a, 13171 ) . 
gs_sal^  table(2,9, 13527)  . 
gs_sal_table(2, 10, 13883) . 
gs_sal_table(3, 1 , 12038) . 
gs_sal_table(3,2, 12^39) . 
gs_sal_table(3,3, 128^0) . 
gs_sai_table(3,^, 132^1 ) . 
gs_sal_table(3,5, 136^2) . 
gs_sal_table(3,6, 1^0^3) . 
gs_sal_table(3,7, 1^^^^) . 
gs_sal_table(3,8, 1^8^5) . 
gs_sal_table(3,9, 152^6) . 
gs_sal_table(3, 10, 156^7) . 
gs_sal_table(^, 1 , 13513) . 
gs_sal_table(^,2, 13963) . 
gs_sal_table(^,3, 1^^13) . 
gs_sal_table(^,4, 1^863) . 
g5_sal_table(^,5, 15313) . 
gs_sal_table(^,6, 15763) . 
gs_5al_table(^,7, 16213) . 
qs_sal_table(^,8, 16663) . 
gs_sal_table(^,9, 17113) . 
qs_5al_table('^,  10,  17563)  . 
gs_sal_table(5, 1 , 15118) . 
gs_5al_table(5,2, 15622) . 
g5_5al_table(5,3, 16126) . 
gs_5al_table(5,^, 16630) . 
gs_5al_table(5,5, 1713^) . 
gs_sal_table(5,6, 17638) . 
g5_sal_table(5,7,181^2) . 
gs_sal_table(5,8,  186-^6)  . 
gs_sal_table(5,9, 19150) . 
gs_5al_table(5, 10, 1965^) . 
gs_sal_table(6, 1 , 16851 ) . 
qs_sal_table(6,2, 17^13) . 
g5_sal _table(6,3, 17975) . 
qs_sal_table(6,^, 18537) . 
gs_sal_table(6,5, 19099) . 


gs_sal_table(6,6, 19661 ) . 
qs_sal_table(6,7,20223) . 
gs_ sal _table( 6, 8,20785) . 
qs_sal_table(6,9,2l3^7) . 
gs_sal_table(6, 10,21909) . 
gs_sal_table(7, 1 , 18726) . 
gs_sal_tabls(7,2, 19350) . 
gs_sal_table(7,3, 1997^) . 
gs_sal_table(7,^, 20598) . 
gs_sal _table(7,5,21222) . 
gs_sal_table(7,6,218^6) . 
gs_sal _ table (7, 7, 22^70) . 
gs_sal_table(7,8,2309^) , 
gs_sal_table(7,9,23718) . 
gs_sal_table(7, 10,2^3^2) . 
gs_sal_table(a, 1 ,20739) . 
gs_sal_table(a,2,21^30) . 
gs_sal_table(8,3,22121 ) . 
gs_sal_table(8,^,22812) . 
gs_sal_table(a,5,23503) . 
gs_sal_table(8,6,2^19^)  . 
qs_sai_table(8,7,2^aa5) . 
gs_sal_table(8,8,25576) . 
gs_sal_table(a,9,26267) . 
gs_sal_table(a, 10,26958) . 
gs_sal_table(9, 1 ,22907) . 
gs_sal_table(9,2,23671 ) . 
gs_sal_table(9, 3,2^^35) . 
g s_ sal _ table (9, ^,251 99) . 
gs_sal_table(9,5,25963) . 
gs_sa.l_table(9, 6, 267727)  . 
gs_sai_table(9, 7, 27^^91  )  . 
gs_sal_table(9,8,28255) . 
gs_sai_table(9,9,29091 ) . 
gs_sal_table(9, 10,29783) . 
gs_sal_table( 10,1 ,25226) . 
gs_5al_table( 10,2,26067) . 
gs_sal_table( 10,3,26908) . 
g-s_sal_table(  10,^,277^9)  . 
qs_sai_table( 10,5,28590) . 
gs_sal_table(  10,  6,  29*^31  )  . 
gs_sai_table( 10,7,30272) . 
gs_sal_table( 10,8,31113). 
gs_sal_table( 10,9,3195^) . 
gs_sal_table( 10, 10,32795) . 
gs_sal_table( 11,1 ,27716) . 
gs_sal_table( 11 ,2,286^0) . 
gs_sal _table( 11 ,3,2956^) . 
gs_sal_table( 1 1 ,^,30^88) . 


gs_5al_table( 11,5,31^12). 
gs_sal_table( 1 1 ,6,32336) . 
gs_sal_table( 11 ,7,33260) . 
gs_sal_table( 1 1 ,8,3^18^) . 
gs_sal_table( 11 ,9,35108) . 
gs_sal_table( 1 1 , 10,36032) . 
gs_sal_table( 12, 1 ,33218) . 
gs_sal_table( 12,2,3^325) . 
gs_sal_table( 12,3,35^32) . 
gs_sal_table( 12,^,36539) . 
gs_sal_table( 12,5,376^6) . 
gs_sal_table( 12,6,38753) . 
gs_sal_table( 12,7,39860) . 
gs_sal_table( 12,8,^0967) . 
gs_sal_table( 12,9,^207^) . 
gs_sal_table( 12 , 10 , ^3181 ) . 
gs_sal_table(13,l ,39501 ) . 
gs_sal_table(  13,  2,-^08  18)  . 
gs_5al_table( 13,3,^2135) . 
gs_sal_table(  13,^,^3*^52)  . 
gs_sal_table( 13,5,^^769) . 
gs_sal_table( 13,6,^6086) . 
gs_sal_table( 13,7,^7^03) . 
gs_sal_table( 13,8,^8720) . 
gs_5al_table( 13,9,50037) . 
gs_sal_table( 13, 10,5135^) . 
gs_sal_table( 1^,1 ,^6679) . 
gs_sal_table( 1^,2,^8235) . 
gs_sal_table(  1^,3,'^9791  )  . 
gs_sal_table( 1^,^,513^7) . 
gs_sal_table(  1<^, 5, 52903)  . 
gs_sal_table( 1^,6,5^^59) . 
gs_sal_table( 1^,7,56015) . 
gs_sal_table< 1^,8,57571 ) . 
gs_sal_table( 1^,9,59127) . 
gs_sal_table( 1^, 10,60683) . 
gs_sal_table( 15,1 ,5^907) . 
gs_sal_table( 15,2,56737) . 
gs_5al_table( 15,3,58567) . 
gs_sal_table( 15,^,60397) . 
gs_sal_table( 15,5,62227) . 
g5_sal_table( 15,6,6^057) , 
gs_sal_table( 15,7,65887) . 
gs_sai_table( 15,8,67717) . 
gs_sal_table( 15,9,69547) . 
gs_sal_table( 15, 10,71377) . 
gs_sal_table( 16, 1 ,64397) . 
gs_sal_table( 16,2,66544) . 
gs_sal_table( 16,3,68691 ) . 


qs_sal_table( 16,^,70838) . 
gs_sal_table( 16,5,7a500) . 
qs_sal_table( 16,6,73660) . 
gs_sal_table( 16,7,75765) . 
gs_sal_table( 16,8,77870) . 
gs_5al_tablB( 16,9,79975) . 
gs_sal_table( 17,1 ,73958) . 
gs_sal_table( 17,2,76^83) . 
gs_sal_table( 17,3,78888) . 
gs_sal_table( 17,^,81353)  . 
gs_sal_table( 17,5,83818) . 
qs  sal  table( 18, 1 ,86682) . 


get_coll_acct_n( I,coll_acct,col l_acct_n, CCOLL_AC- 
CT_N/1 .03 ) :- 

findal  1  (col  l_acct  ,clata(_,col  l_acct  i  _■>_■>_■>_■>_■>_'>  _■> 

length(L,COLL_ACCT_N) ,gc(full  )  . 
get_d_60_n( I , d_60 , d_60_n , CD_60_N/1 .0] ) :- 
findal 1 (del inq_60,data(_,del inq_60, _,_,_, _,_,_,_, 
length (L,D_60_N)  ,gc(ful 1  )  . 

qet_d_60_a( I , d_60 , d_60_a , CD_60_A/1 .0] ) :- 

f i  ndal 1 ( Amount , data(_, deli nq_60, _,_,_,_,_, Amount , 

A)  , 

total_d_60_a( A,D_60_A)  ,gc(ful 1  )  . 

total_d_60_a( C : ,0) :-  1. 

total_d_60_a( CAIL] , D_60_A ) :- 

to tal_d_60_a(L, Sub total ) , 

P_60_A  is  Subtotal  +  A. 

get_d_90_n( I , d_90 , d_90_n , CD_90_N/1 .0] ) :- 

findal  1  (del  i  nq_90  ,  data  (_,  del  i  nq_90  ,_,_,_  ,  _,_■>_■>_'> 

length(L,D_90_N) ,gc (ful 1 ) . 
get_d_90_a( I , d_90 , d_90_a , CD_90_A/1 .0] ) :- 
findal 1 (Amount ,data( _,del inq_90,_,_ ,_,_,_, Amount , 
A  )  , 

total  d  90_a( A,D_90_A)  ,qc ( ful  1  )  . 
totai_d_90_a( C ] ,0) :-  1. 
total _d_90_a( CAIL] ,D_90_A) :- 

total_d_90_a(L, Subtotal ) , 

D  90  A  is  Subtotal  +  A. 


get_d_120_n( I , d_ 1 20 , d_ 1 20_n , C D_ 1 20_N/ 1 . 0 ] ) : - 
f 1 nd ai 1  ( del  1 nq _1 20, data( _, del inq_l 20, _,_,_,_, 


length(L,D_120_N) ,gc (ful 1 ) . 


get_d_120_a( I , d_ 1 EO , d_ lEO_a , CD_120_A/1 .0] ) :- 

f i  ndal 1 ( Amount ,data(_,del inq_l 20, _,_,_,_,_, Amount , 

,A)  , 

total_d_120_a( A,D_120_A)  ,gc(ful 1  )  . 

total_d_120_a( C J ,0) :-     I. 

tQtal_d_120_a( CAIL] ,D_120_A) :- 

to tal_d_120_a(L, Sub  total )  , 

D_120_A    is    Subtotal     +    A. 

get_d_150_n(  I , d_ 150 , d_ 1 50_n , CD_150_N/1 .0]  )  :- 

f  1  nd  alMdeli  nq  _1  50, data(_,delinq_l  50, _,_,_, _,_,_,_ 


length(L,D_150_N)  ,gc(ful 1  )  . 
get_d_150_a( I , d_150 , d_150_a , CD_ 150_A/ 1 . O: ) : - 
fi  nda 1 1 ( Amount ,data(_,del i  nq_150  »_»_»_»_,_, Amount , _ , _ ) 
,A)  , 

total_d_150_a(A,D_150_A)  ,gc(ful  1  )  . 
total_d_150_a(  C  :  ,0)  :-  '.  . 
total_d_150_a( CAIL] ,D_150_A) :- 

total_d_150_a(L, Subtotal ) , 

D_150_A  is  Subtotal  +  A. 

get_d_180_n( I , d_iaO ,d_180_n , CD_iaO_N/l .0] ) :- 

findal 1 (del i nq _1 80, data( _, del inq_l SO, _,_,_, _,_,_,_,_) , 

L)  , 

length (L,D_iaO_N) ,gc (ful 1 ) . 
get_d_iaO_a( I , d_ 180 , d_ 1 aO_a , CD_180_A/1 .0] ) :- 
findal 1 ( Amount ,data(_,del inq_l 80, _,_,_,_,_, Amount , _ , _ ) 
,A)  , 

total_d_iaO_a(A,D_iaO_A)  ,gc(ful 1)  . 
total_d_180_a( C : ,0) :-  I. 
total_d_iaO_a( CAIL] ,D_iaO_A) :- 

to tal_d_iaO_a(L, Sub  total )  , 

D_180_A  is  Subtotal  +  A. 

get_c_w_60_n( I , c_w_60 , c_w_60_n , CC_w_60_N/l .0] ) :- 
findal 1 (c_w_60 , data (_ ,c_w_60 ,_,_,_,_,_,_,_,_ ) ,L) , 

length (L,C_w_60_N)  ,gc(ful 1  )  . 
get_c_w_60_a( I , c_w_60 , c_w_60_a , CC_w_60_A/l .0] ) :- 
findal 1 (Amount , data ( _ , c_w_60 , _,_,_>  _^  _ , Amount ,_,_ )  ,A)  , 
total  c_w_60_a( A,C_w_60_A)  ,gc (ful  1  )  . 
totallc_w_60_a( C] ,0) :-  (. 
total_c_w_60_a( CAIL] ,C_w_60_A) :- 

total_c_w_60_a ( L , Subtotal ) , 

C_w_(SO_A  is  Subtotal  +  A. 

get_c_w_90_n( I , c_w_90 , c_w_90_n , CC_w_90_N/l .0] ) :- 
findal 1 ( c_w_90 , data (_, c_w_90 ,_,_,_,_,_,_,_,_ ) ,L) , 
length (L,C_w_90_N) ,gc(full ) . 
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qet_c_w_90_a( I , c_w_90 , c_w_90_a , [C_w_90_A/l .0] ) :- 

f  indal  1  (  Amount  ,datai(  _5C_w_90,  _>  _>_»_»  _  ,  Amount  ,  _,  _)   ,  A)  , 

total_c_w_90_a(A,C_w_90_A) ,gc (ful 1 ) . 

total_c_w_90_a( C: ,0) :-  !. 

total_c_w_90_a( CA!L3 ,C_w_90_A) :- 

total_c_w_90_a(L, Subtotal ) , 

C_w_90_A  is  Subtotal  +  A. 

get_c_w_120_n( I , c_w_ 1 20 , c_w_ 1 20_n , CC_w_120_N/l ;03 ) :- 
f indal 1 ( c_w_ 120 , data (_, c_w_ 120 ,_,_,_,_,_,_,_,_ ) ,L) , 

length (L,C_w_120_N) ,gc(ful 1 ) . 
get_c_w_120_a( I , c_w_ 120 , c_w_ 120_a , CC_w_120_A/l .0] ) :- 
f indal 1  ( Amount ,data(_,c_w_l 20, _,_,_,_,_, Amount  »  _ i _ )  »  A )  , 
total_c_w_120_a(A,C_w_120_A) ,gc (ful 1 ) . 
total_c_w_120_a( C ] ,0) :-  1. 
total_c_w_120_a( CAILD ,C_w_120_A) :- 

to tal_c_w_120_a(L, Sub total ) , 

C_w_120_A  is  Subtotal  +  A. 

get_c_w_150_n( I , c_w_ 1 50 , c_w_ 1 50_n , CC_w_150_N/l .0] ) :- 
f indal 1 ( c_w_ 150 , data (_, c_w_ 150 ,_,_,_,_,_,_,_,_ ) ,L) , 

length (L,C_w_150_N) ,gc(full ) . 
get  _c_w_150_a( I , c_w_ 150 , c_w_150_a , CC_w_ 150_A/ 1 . 0 ] )  : - 
f  i  ndal 1 ( Amount ,data(_,c_w_l 50 ,_,_,_,_,_,Amount,_,_)  ,A)  , 
total_c_w_150_a(A,C_w_150_A) ,gc (ful 1 ) . 
total_c_w_150_a( C ] ,0) :-  I. 
total_c_w_150_a( CAiLD ,C_w_150_A) :- 

to tal_c_w_150_a(L, Sub  total )  , 

C_w_150_A  is  Subtotal  +  A. 

get_c_w_180_n( I , c_w_ 1 80 , c_w_ 1 aO_n , CC_w_iaO_N/l ,0] ) :- 
f indal 1 ( c_w_ 1 80, data (_,c_w_ ISO, _,_,_, _,_,_,_,_) ,L) , 

length(L,C_w_180_N) ,gc(ful 1 ) . 
get_c_w_iaO_a( I , c_w_180 , c_w_ iao_a , CC_w_180_A/l .03 ) :- 
f indal 1 ( Amount ,data(_,c_w_180, _,_,_,_,_ , Amount , _ , _ ) , A) , 
total_c_w_180_a(A,C_w_180_A) ,gc( ful 1 ) . 
total_c_w_180_a( C ] ,0) :-  !. 
total_c_w_iaO_a( CA;L] ,C_w_180_A) :- 

total_c_w_ 180_a(L, Sub  total )  , 

C_w_iaO_A  IS  Subtotal  +  A. 

get_pdbydlr_n(  I  , pdbyd 1 r , pdbyd 1 r  _n , CPDBYDLR_N/ 1.0]):- 
findall(pdbydlr,data(_,pdbydlr,_,_,_,_,_,_,_,_),L), 

length (L,PDBYDLR_N) ,gc(ful 1 ) . 
get_pdbydlr_a( I ,pdbydlr , pdbyd lr_a, CPDBYDLR_A/1 .0] ) :- 
f 1 ndal 1 ( Amount ,data(_,pdbydlr )_j_»_5_5_»  Amount , _ , _ )  , A )  , 
total_pdbydlr_a( A,PDBYDLR_A)  ,gc (ful 1  )  . 
total_pdbydlr_a(  C  D  ,0)  :-  '.. 
to ta 1 _pdbydl r_a( CA:L] ,PDBYDLR_A) :- 
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to tal_pdbydlr_a(L, Sub  total )  , 
PDBYDLR_A  is  Subtotal  +  A. 

get_sui  t_n(I,suit,5uit_n,CSuit_N/1.0]):- 
findall(suit,data(_,su it, _,_,_, _,_,_,_,_) ,L) , 

length(L,Suit_N) ,gc(ful 1 ) . 
get_sui t_a( I , sui  t , sui t_a , CSui  t_A/ 1 . O] )  :- 
f  indal 1 ( Amount ,data(_,suit, _,_,_,_,_, Amount ,_,_), A ) , 
total_suit_a( A,Suit_A)  ,gc (ful  1  )  . 
total_sui  t_a(  C  ]  ,0)  :-  '.  . 
total_suit_a( C A ; L3 , Sui t_A ) :- 

to tal_suit_a(L, Sub total ) , 

Suit_A  is  Subtotal  +  A. 

get_bk_vals(I, trw,bk_vals, CBK_VALS/1 .OD ) :- 

bk_7_f i le(BK_7)  , 

bk_l l_f i le(BK_l 1 ) , 

bk_13_f i le(BK_13)  , 

bk_7_disc(BK_7_DISC) , 

bk_7_dism(BK_7_DISM) , 

bk_13_comp(CQMP) , 

BK_VALS  is 
BK_7+BK_11+BK_13+BK_7_DISC+BK_7_DISM+C0MP, 
gc (ful 1 ) . 

bk_7_f i le(BK_7) :- 

(data(_,bk_7_file, _,_,_, _,_,_,_,_), 
BK_7  is  200)  ;  BK_7  is  O. 

bk_ll_f ile(BK_l 1 ) :- 

(data(_,bk_ll_file,_,_,_, _,_,_,_,_), 
BK_11  is  200)  ;  BK_11  is  O. 

bk_13_f ile(BK_13) :- 

(data(_,bk_13_file, _,_,_, _,_,_,_,_) , 
BK_13  is  200)  ;  BK_13  is  O. 

bk_7_disc(BK_7_DISC) :- 

(data(_,bk_7_disc,_,_,_,  _,_,_,_,_), 
BK_7_DISC  15  200)  ;  BK_7_DISC  is  0. 

bk_7_di5m(BK_7_DISM) :- 

(data(_,bk_7_d ism, _,_,_, _,_,_,_,_), 
BK_7_DISM  is  200)  ;  BK_7_DISM  is  O. 

bk_13_comp(C0MP) :- 

(data(_,bk_l  3_comp  »_!>_»_»_,_,_,_,_)  , 
COMP  is  200)  ;  CQMP  is  0. 


memoer ( X , CX I _D ) . 

memder ( X , C_ ; Y] ) : -  membsr(X,Y). 

5how_t)k_fi  i  e_mes5age  (T_bk_vais,Bl<_vals)  :- 
nl , put ( 7 ) , ^r i te ( ' The  Der5on  is  DankruDt.'), 
Dk_vai_3S'-_5-aru5(,T_Dk_vals,Bk_vals). 


5how_dk_d  i5c_me5saqe (T_Dk_val5,Bk_vals)  :- 
nl  ,put (7)  , 
write('The  oerson  is  a  discnarged  dankrupt.'), 

bk_val_Der_5tatus(T_bk_vals,Bk_vals). 

show_dk_dism_message(T_bk_vals,Bk_vals):- 

nl  ,put (7)  , 
write('The  bankruptcy  petition  was 
dismissed/completed. ' ) , 
bk_val_per_status(T_bk_vals,Bk_vals). 

no t_dankrup t_case ( Bk_Val s )  :- 

Dk_val _per_status (not_bankrupt,Bk_Vals)  . 


/♦  Alternate  metnod  of  searching  for  Bankrupt  credit 
remarks  tnat  may  be  modified  in  the  future. 


looK  for 


_remark  (BK_VALS)  ;BK_>v'ALS  is  0. 


look_f or_bk_remark ( BK_VALS ) :- 

data ( _ , CRED I TREMARK ._»_>_._>_>_»_._)» 
case( CCREDITREMARK=bk_7_f ile->VAL  is  200, 
CREDI^REMARK=bk_l l_f ile->VAL  is  200, 
==<_13_f ile->VAL  is  200, 
=z<_7_disc->VAL  is  200, 
=r<_ll_f ile->VAL  is  200, 
=DK_7_dism->VAL  is  200, 
'  =  E  ■■-^K  =  bk_l  l_f  i  le->VAL  is  200, 
"  =  E:''ARK  =  bk_13_f  i  le->VAL  is  200, 
CREDITREMARK=bk_13_comD->VAL  is  200; 

vAL  is  o: )  ,  t  , 

if thenelse( VAL=200,BK_VALS  is  200 , nex t _bk_search ) . 


_u  K:_searcn  :  - 
da ta(_, CRED I TREMARK, _,_,_, _,_,_,_,_)  ,  [   , 
get_bk_vals(I, trw,bk_vals, [BK_VALS/ 1 .OD ) . 

(  "  cneck_bk_f i le ( Temp_BK_VALS , BK_VALS )  ; 
check_bk_di5C  (Temp_BK_'v'ALS,BK_VALS)   )  ; 
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check_bl<_di5m(Temp_BK_VALS,BK_VALS)  )  . 


get_bk_vals(I,trw,bk_vals, CBK_VALS/1 .0] ) :- 

bk_val_per_status(not_bankrupt  ,BK_'v;ALS  )  . 


check_bk_f i le ( Temp_BK_VALS , BK_VALS ) :- 

member (Temp _BK_VALS, Cbk_7_file,bk_ll_file,bk_13_file]), 

show_bk_f i le_message(Temp_BK_VALS,BK_VALS) . 


check, bk_d 1 sc ( Temp_BK_VALS , BK_VALS ) : - 

member ( Temp _BK_VALS, Cbk_7_d i sc , bk_ 1 1 _d isc ] ) , 

show_bk_disc_message(Temp_BK_VALS,BK_VALS) . 

check  _b  k_d  i  sm ( Temp_BK_VALS , BK_VALS )  : - 
member ( Temp_BK_VALS , Cbk_7_d i sm , bk_ 1 1 _d i sm , bk_ 13_d ism , 
bk_13_comp] ) , 
show_b  k  _d  i  sm_message ( Temp  _BK_VALS , BK_VALS ) . 


get_notpdaa_n(  I  ,notpdaa,notpdaa_n,  [:Notpdaa_N/l  .0]  )  :- 
fi nd al 1 ( no tpdaa,data(_, no tpdaa, _,_,_, _,_,_,_»_) ,L) ^ 
length(L,Notpdaa_N) ,gc (ful 1 ) . 

get_notpdaa_a( I ,notpdaa, no tpdaa_a , CNo tpdaa_A/ 1.03) : - 
f i  nda 1 1 ( Amount , data(_, no tpdaa, _,_,_,_,_, Amount »  _  »  _ )  »  A ) , 
total _no tpdaa_a ( A , No tpdaa_A ) , gc ( f ul 1 ) . 
to tal _notpdaa_a ( C ] ,0 ) : -  !. 
tQtal_notpdaa_a( CAILD ,Notpdaa_A) :- 

total_notpdaa_a ( L , Sub  total ) , 

Natpdaa_A  is  Subtotal  +  A. 

get_f c los_val s ( I , f orec losure »  f orec 1 osure_wei gh t _va 1 , 
CFCWTVAL/1 .03 ) :- 

data(_, for ec losure, _,_,_, _,_,_,_,_), 

shoiAj_forec  losure_message . 

we ight_per_status(fQrec losure, FCWTVAL) ,gc(full ) . 


get_tclos_vals( I ,foreclosure, f orec losure_weigh t_val , 
tFCWTVAL/ 1 .03 ) :- 

FCWTVAL  is  0,gc(full). 

5how_forec losure_message : - 
nl  ,put (7)  , 


xjr  i  te  (' There  is  a  foreclosure  item  in  the  report. 


get_ judgment_vals ( I , judgment , judgment_wei ght_va 1 , 
CJDWTVAL/1 .03 ) :- 

data ( _ ,  judgment  »_)_»_»_5_5_»_»_)  » 

5how_  judgment_message , 

weight_per_status ( judgment , JDWTVAL) ,gc ( f ul 1 ) . 

get_ judgment _val 5(1, judgment , judgment_wei  gh t_val , 
CJDWTVAL/1 .03  )  :- 

JDWTVAL  is  0,gc(full  )  . 

5how_  judgment _mes sage : - 
nl ,put (7  )  , 
write( 'There  is  a  judgment  item  in  the  report.'). 


get_repo_vals( I ,repo,repo_weight_val , 
CREPOWTVAL/1 .03 ) :- 

data(_»repo, _,_,_, _,_,_,_,_) , 

5how_repo_message, 

weight_per_5tatus(repo ,REPOWTVAL) ,gc (ful 1 ) . 


get_repo_vals( I ,repo , repo_weigh t_va 1 , 
[REPOWTVAL/1 .03 ) :- 

REPOWTVAL  is  0,gc(full). 

show_.repo_mes5age:- 

nl ,put ( 7)  , 

writeC 'There  is  a  repossessed  item  in  the 
report .  '  )  . 


reverse_text(Text) :- 
name ( Tex  t  »  L )  , 
length (L,N) , 
wa(N, 1 12) , 
put (7  )  , 
wr  i  te ( Text )  . 

get_pd_col l_ac_n( I ,Dd_col l_ac ,pd_col l_ac_n, 
CPO_CDLL_AC_N/ 1.03) :- 
tindall(pd_coll_ac,data(_,pd_coll_ac, _,_,_, 


length(L,PD_COLL_AC_N) ,gc(ful 1 ) . 


get _charge_of f _n ( I , charge_of f , charge_of f _n , 
CCHARGE_QFF_N/1 .03 ) :- 

findal 1 (charge_off,data(_,charge_off, _,_,_, _,_,_,_,_ 
L)  , 
length (L,CHAR6E_QFF_N) ,gc (ful 1 ) . 

check_recent_i  nq ( I , inqui  ry,no_of_inq, CNoE/ 1.0]):- 
t  i  nda 1 1 ( Do  I , i  nq ( _ , Do  I )  , L)  , 

length(L,NoE_l  )  , 

NoE_a  is  NoE_l  -  10, 

if thenelse(NoE_2  <0,NoE_3  is  0,NoE_3  is  NqE_2), 
ifthen(NoE_3>5,show_inq_message), 

if thenelse(NoE_3=0,NoE  is  0,NoE  is  NoE_l). 


show_  i  nq_message : - 

nl  ,  put ( 7 )  , wr i te (  ' Too  many  inquiries'). 

get_curr_acct_n( I ,superpayer,curr_acct_n, CN/1 .0] )  :- 
f i nd all (curr_acct,data(_,curr_acct, _,_,_, _,_,_,_,_) ,L) , 
length(L,N_l ) , 

t^_B     is  N_l  -  10,      /♦only  over  10  curr_accts  a.re 
bad  */ 
if thenelse(N_E  <  0,N_3  is  0,N_3  is  N_2 ) , 
if thenelse(N_3=0,N  is  0,N  is  N_a) , 
gc (full  )  . 

show_curr_acct_message:- 

nl  , put ( 7 )  , wr i te (  ' Too  many  active  creditors'). 


/*  compute_total_month  ly_payment  (  1 1  1  1  1  1  1 16  ,586<^  )  .  */ 
compute_total_monthly_payment( SSN , Expenses ) : - 

next_match,gc(ful 1 ) , 

to tal_month ly_expenses (Expenses ) , 

current_case ( Current_Case ) , 
[Current_Case] ,gc(ful 1 )  . 

/ ■*■    This  is  to  reintroduce  the  dataC)  predicates  just 
wiped  out  during  the  total  monthly  payment  computations 

*/ 

nex  t  match  :  - 

next_payment  ;  to ta 1 _month 1 y_payments . 

nex  t_payment : - 

data(A,B,C,D,E,F,G,Balance_Due,H, I  )  ,  1  , 
if then ( var ( Balance_Due ), Ba lance_Due  is  0), 
asser ta ( balance_due ( Balance_Due ) ) , 
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retractal 1 ( data ( A , B , C , D , E , F , G , Ba 1 ance_Due , H , I ) ) ,gc(ful- 
1  )  , 

nex  t _match . 

total_month  ly_p  ay  merits  :  - 

t i  ndal 1 ( Balance_Due , bal ance_due ( Balance_Due )  ,L)  , 

total_balances(L,Total_Balance), 

Expenses  is  To ta 1 _Ba 1 ance*0 . 1 0 , 

assertz(total_monthly_expenses(Expenses) ) . 

total _Dalances ( L 3 , 0) : -  1. 

total _balances( CS ; LD , To tal _Bal ance ) : - 

to tal_balance5 (L ,Sub total ) , 

Total_Balance  is  Subtotal  +  S. 


retractal 1 ( X  )  :-  retract ( X )  ,f ai 1 . 
retractall(X) :-retract( (x:-y) ) , fa il. 
retrac tal 1 ( _ ) . 


comDute_total_monthi  y_payment ( _ , 0 )  . 

/♦ 

compute_discretionary_income(  1  1  1  1  1  1  1  16,single,939A-3, 

3000) .  */ 

/♦  compute_d i scret iQnary_ i ncome (_,_,_, 3000 ) .  */ 

CO mpute_discreti onary_ income (5 SN,Discretionary_ In- 
come )  :  - 

emp loyee (SSN,GS_Level ,Sal _Step ,M_Status,Zip) , 

gs_5al_table(GS_Level , Sa 1 _Step , I ) , 

if thenel se ( M_Status=marr led ,  Income  is  1*1.60, 
Income  is  I ) , 

tax( Income,Tax_rate) , 

rent (Zip ,Rent ) , 

Food  IS  Income*0.20, 

Netrate  is  1-Tax_rate, 

Di  sposab  le_  1  ncome  is  I  ncome-»<-Net _r  ate  , 

txpenses  is  Rent+Food, 

Yr 1 y_d iscret ion_amQunt  is 
Disposable_i  ncome-Expenses , 
Discr_Inc  is  Yr 1 y_d iscret i on_amount / 1 2 , 

Discret ionary_Income  is 
round (Discr_lnc,0) ,gc(full ) . 

tax( Income,Tax_rate) :- 

case( C Income<10000->Tax_rate  is  O, 

Income<30000->Tax_rate  is  0.15! 
Tax_rate  is  0.S8] ) . 
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rent ( '939^3' ,700) . 
rente '939^9' ,700) . 


All  conclusions  are    based  these  weighted  decisions. 
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Lon( 

weighted 

_dec  is 

ion  ( 

weighted. 

_decis 

Lon( 

weighted 

_decision( 

10, normal ) . 

20 , norma  1 )  . 

30 , norma  1  )  . 

<^0,satisfactory)  . 

50 , sat i sf actory ) . 

60, less_than_satisfactory) . 

70, less_than_sat i sf actory )  . 

80, poor  )  . 

90, poor )  . 

100 , very_poor ) . 

110, very_poor  )  . 

120 , ser  ious ) . 

130 , ser  ious )  . 

l-^O  ,  ser  ious  )  . 

150 , very_ser ious ) . 

160 , very_ser ious ) . 

170,cri t ical ) . 

180, critical ) . 

190, critical )  . 

_,very_critical  )  . 


Meight _ 
"jeight 
Meigh  t  _ 
■vie  i  gh  t 
^jeight 
^leigh  t 
^e  ight_ 
^leigh  t 
«je  igh  t 
Ajeight 
^leigh  t 
/>jeigh  t 
-r/eight 
/weight 
Aieigh  t 
Ajeigh  t 
.Meight 
/height 


per 

per 
per 
per 
per 
per 
per 
per 
per 
per 
per 
per 
per 
per 
per 
per 
per 
per 


.status 
status 
status 
status 
status 
status 
status 

_status 
status 

_status 

.status 

_status 
status 

_status 
status 

_status 
status 
status 


(pdbydlr , 50 ) . 
( no tpdaa , 30 ) . 
(col l_acct ,200) . 
(pd_col l_ac,30) . 
(charge_off ,200) . 
(  1 nqu  i  ry , 10 )  . 
( curr_acc t , 10 ) . 
( f orec losure , 200 ) . 
( judgment ,200) . 
(repo ,200) . 
(suit ,70) . 
(del inq_60,30) . 
(del inq_90,30) . 
(del inq_120,^0) . 
(del  inq_150,'^0)  . 
(del inq_180,50 ) . 
(c_w_60, 10) . 
(c_w_90, 10) . 
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weight_per_status( c_w_120,20 ) . 
weiqht_per_status ( c_w_150,20) . 
weight_per_status(c_iM_iaO,30  )  . 
weight_per_status ( insc laim,70 ) . 
weight_per_statu5 ( volnrepo , 100 ) . 
weight_per_status(cwpd, 10) . 
weight_per_5tatus ( cwpd_30 , 10) . 
weight_per_status( cwpd_30by2 , SO ) . 
weight_per_status( cwpd_30by3 , 20 ) . 
weight_per_status(cwpd_30by'^,30). 
weight  per_status(  cwpd_30by5  , -^0  )  . 
weight_per_status( cwpd_30by6 ,^0 ) . 
weight_per_status(accpd_30,20) . 
weight_per_status ( accpd_30by2 , 20 ) . 
weight_per_status( accpd_30by3 , 20 ) . 
weight_per_status(  ace pd_30by'^  ,  30  )  . 
weigh  t_per_statu5(  accpd_30by5,  "^0  )  . 
weight_per_statu5( accpd_30by6 , ^O ) . 
weight_per_status ( pacc_wpd_30 , 10) . 
weight_per_5tatus ( pacc_wpd_30by23 , 20 ) . 
weight_per_5tatus(  pacc_wpd_30by'4- ,  30  )  . 
weiqht_per_status(  pacc_wpd_30by5  ,  -^0  )  . 
weigh  t_per_statu5  (  pacc_wpd_30by<S  ,  A-0  )  . 
weight _per_status ( pacc_wdel60 , 10) . 
weight_per_5tatus(pacc_wdel90, 20 ) . 
weight_per_status(pacc_wdel 120, 30) . 
weight_per_5tatu5(pacc_wdel  150,  A-0)  . 
weight_per_status(pacc_wdel ISO, 50) . 
weigh t_per_status ( pd_repo , 50 ) . 
weight_per_status(pd_chg_off, 50 ) . 
weight_per_status(pd_fareclo,50). 
weight_per_status(bl<l  iqreo  ,200  )  . 
weight_per_status ( set t led ,50 ) . 
weight_per_status(bl<_adj_pln,  200  )  . 
we  ight_per_status(scnl _nwloc , 50 )  - 
weight  _per_status(co_now_pay, 50 )  . 
weight  per_statu5 ( f ore_proc , 200 ) . 
weight_per_5tatus(gov_claim,70). 
weight_per_status(close_np_aa,50). 
weight_per_status(scnl , 100) . 
weight_per_status(fed_tax_ln, 200 ) . 
weight_per_status ( f ed_tax_rel ,50) . 
weight_per_5tatus( judgmt_5at,50) . 
weight_per_status( judg_vacat, 10) . 
weigh t_per_statu5 ( mech_ 1 i  en , 200 ) . 
weight_per_status( mech_rele , 50 ) . 
weight_per_statu5(mn_mtg_fil , 10) . 
weight_per_status(nt_respon,20). 
weight_per_status(stat_tx_ln,200) . 
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weight_per_statu5(sta_tx_rel ,50) . 
weight_per_status(suit_d  ismd , 10 )  . 
weight_per_status(wage_a5ign,50). 
weight_per_status ( wa_release , 10) . 
weight  per_status(refinanced, 10) . 
weight_per_status(cr_cd_lost, 10) . 
weight  per_status ( c los_ inac , 10 ) . 
weight_per_status(transfered, 10) . 
weigh  t_per_5tatus( toa_new_r  t , 10 ) . 
weight_per_status(paid_satis, 10) . 
weigh  t_per_status(paid_acct, 10)  . 
weight_per_status( deceased , 10 ) . 
we  ight_per_5tatus(cr_ln_clos»  50 ) . 
weight_per_status( redmd_repo  »  30 )  . 
weight_per_status ( cur_was_co 1 ,30) . 
weigh t_per_status ( cr_ ln_rnst , 10 ) . 
weight_per_5tatus(cur_was_far ,30) . 
weigh t _per_status ( pd_no  t_aa , 20 )  . 
weight_per_status(ci ty_tx_ln,200) . 
weight_per_status(city_tx_rel ,50) . 
weight_per_status(consel_5er ,20) . 
weight  _per_5tatuB (co_tax_ln, 200 )  . 
weight_per_statu5(co_tax_rel ,50) . 

weight_f or_superpayer ( 200 ) . 

bk_val_per_status(not_bankrupt ,0) . 
bk_val_per_status(bl<_7_disc,200)  . 
bk_val_per_status(bk~7_f i le,200) . 
bk_val_per_status(bk_l l_f ile,200) . 
bk_val_per_status(bk_7_dism,200) . 
bk_val_per_status(bk_l l_dism,200) . 
bk_val_per_status(bk_l l_di5C ,200) . 
bk_val_per_status(bk_13_d  ism, 200 )  . 
bk_val_per_status(bk_13_f i le,200) . 

bk_val_per_status(bk_l 3_comp , 200 ) . 

get_insclaim_n( I , insclaim, insclaim_n, C Insclaim_N/l .03- 

f i  ndal 1 ( i  nsc laim,data(_, i  nsc laim, _,_,_, _,_,_,_,_)  ,L)  , 

length (L, Insclaim_N) ,gc (ful 1 ) . 
get_insclaim_a( I , insclaim, insclaim_a, C Insclaim_A/l .0]- 
)  :- 

f  i  nda  1  1  (  Amount  ,  data  (  _  ,  i  nsc  l^ifTi, _,_,_,_,_,  Amount  ,  _  ,  _  )  ,  - 
A)  , 

tDtal_insclaim_a(A,Insclaim_A) ,gc(full ) . 
total  insc laim_a ( C ], 0 ): -  1. 
total_in5claim_a( CAILD , Insclaim_A) :- 
total_insclaim_a(L, Subtotal ) , 
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Insclaim_A  is  Subtotal  +  A. 

qet_volnrepo_n( I ,volnrepo,volnrepo_n,LVolnrepo_N/l .0]- 

findall (volnrepo,data(_,volnrepo, _,_,_, _,_,_,_,_) ,L) , 

length ( L , Vo lnrepo_N )  ,qc (f ul 1  )  . 
get_volnrepo_a( I ,volnrepo,volnrepo_a, CVolnrepo_A/l .0]- 

1 1  ndal  1  c  Amount  ,data(_,volnrepo, _,_,_,_,_,  Amount  ,_■,_)   »  - 

A  )  , 

total _vo lnreoo_a ( A, Vo lnrepo_A ) . 

total _vo lnrepo_a ( C ], 0) : -  1. 

total_volnrepo_a( CAlLl ,Volnrepo_A) :- 

total_volnrepo_a(L, Subtotal ) , 

Volnrepo_A  is  Subtotal  -•-  A. 

get_cwpd_n( I ,cwpd,cwpd_n, CCwpd_N/l  .0]  )  :- 
find all (cwpd,data(_,cwpd, _,_,_, _,_,_,_,_) ,L) , 

length  (L,Cwpd_fM)  ,gc(ful  1  )  . 
get_cwpd_a ( I , cwpd , cwpd_a , CCwpd_A/ 1.0]) : - 
f indal 1 ( Amount ,data(_,cwpd, _,_,_,_,_ , Amount ,_,_), A ) , 
total_cwpd_a( A,Cwpd_A) ,gc ( ful 1 ) . 
total_cwpd_a( [ : ,0) :-  [. 
total_cwpd_a( CA:L3 ,Cwpd_A) :- 

to tal_cwpd_a(L, Sub total ) , 

Cwpd_A  is  Subtotal  +  A, 

get_cwpd_30_n( I , cwpd_30 , cwod_30_n , [Cwpd_30_N/ 1.01) :- 
f  indal  1  (  cwpd_30,data(  _  ,  cwpd_30  ,  _  ,  _  ,  _•>_-,_'>_',_■>_'>   »L)  , 

length ( L , Cwpd_30_N ) ,gc (ful 1 ) . 
get_cwpd_30_a( I , cwpd_30 , cwpd_30_a , CCwod_30_A/l .0] ) :- 
f indal 1 ( Amount ,data(_,cwpd_30, _,_,_,_,_ , Amount ,_,_), A ) , 
total_cwpd_30_a( A,Cwpd_30_A) ,gc (ful 1 ) . 
total_cwpd_30_a(  [  ]  ,0)  :-  '.  . 
total_cwpd_30_a( CA ;L] ,Cwpd_30_A) :- 
total_cwpd_30_a(L, Subtotal ) , 
Cwpd_30_A  is  Subtotal  +  A. 


get_cwpd_30Dv2_n( I , cwpd_30bv2 , cwpd_30b Y2_n , LCwDd_30bv2- 
_N/1 .03 ) :- 

f  indal  1  (  cwpd_30b  v2,  data  (_,cwpd_30by  2,  _,_,_,  _^  _•>_■>_'>  _>  ^- 
L)  , 

length(L,Cwpd_30by2_N) ,gc(full ) . 
get_cwDd_30by2_a( I , cwpd_30by2 , cwpd_30by2_a , [Cwpd_30by2- 
_A/ 1 .0] ) :- 

f  i  nda 1 1  ( Amount ,data(_,cwpd_30by2, _,_,_»_,_, Amount  ?_?_)- 
,Aj  , 
total_cwpd_30by2_a( A,Cwpd_30by2_A) ,gc ( ful 1 ) . 
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total_cwpd_30by2_a(  C  ]  ,0)  :-  '.  . 
total_cwpd_30by2_a( CA!L] , Cwpd_30by2_A ) :- 

total_cwpd_30by2_a(L, Subtotal ) , 

Cwpd_30by2_A  is  Subtotal  +  A. 

get_cwpd_30by3_n( I , cwpd_30by3 , cwpd_30by3_n , CCwpd_30by3- 
_N/1 .0] ) :- 

f indal 1 ( cwpd_30by3 , data (_, cwpd_30by3 ,_,_,_,_,_,_,_,_ ) ,- 
L)  , 

length (L,Cwpd_30by3_N)  ,gc (ful 1  )  . 
get_cwpd_30by3_a( I , cwpd_30by3 , cwpd_30by3_a , CCwpd_30by3- 
_A/1 .03 ) :- 

f  i  ndal 1 ( Amount ,data(_,cwpd_30by3, _,_,_,_,_, Amount  »_»_)- 
,A)  , 

tQtal_cwpd_30by3_a(A,Cwpd_30by3_A) ,gc(ful 1 ) . 
total_cwpd_30by3_a(  C  ]  ,0)  :-  '.  . 
total_cwpd_30by3_a( CAIL] , Cwpd_30by2_A ) :- 

total_cwpd_30by3_a(L, Subtotal ) , 

Cwpd_30by3_A  is  Subtotal  +  A. 

get_cwpd_30by'^_n(  I  ,cwpd_30by'^  ,  cwpd_30by'^_n,  CCwpd_30by'^- 
_M/1 .0] ) :- 

f  indal  1  (  cwpd_30by'^  ,  data  (  _  ,cwpd_30byA- »_?_»_»_»_»_»_»_)  »- 
L)  , 

length(L,Cwpd_30by^_N)  ,gc(ful  1  )  . 
get_cwpd_30by^_a( I , cwpd_30by^ , cwpd_30by^_a , CCwpd_30by^- 
_A/1 .03 ) :- 

f  indal 1 ( Amount ,data ( _ , cwpd_30by^ '_'_'_»_»_' Amount  »_>_)- 
,A)  , 

total_cwpd_30by^_a(A,Cwpd_30byit_A)  ,gc(ful  1  )  . 
total_cwpd_30by^_a( C ] ,0) :-  [. 
total_cwpd_30by^_a( CA;L3 , Cwpd_30by^_A ) :- 

total_cwpd_30by'^_a(L, Subtotal  )  , 

Cwpd_30by'^_A  is  Subtotal  +  A. 

get_cwpd_30by5_n( I , cwpd_30by5 , cwpd_30by5_n , CCwpd_30by5- 
_N/1 .03 ) :- 

f indal 1 ( cwpd_30by5 , data (_, cwpd_30by5 ,_,_,_,_,_,_ , _,_) ,- 
L)  , 

length (L,Cwpd_30by5_N)  ,gc ( ful 1  )  . 
get_cwpd_30by5_a( I , cwpd_30by5 , cwpd_30by5_a , CCwpd_30by5- 
_A/1 .03 ) :- 

f i  ndal 1 ( Amount , data ( _ , cwpd_30by5  »_?_»_»_ i _  »  Amount  »  _  5  _ ) - 
,A)  , 

total_cwpd_30by5_a( A,Cwpd_30by5_A) ,gc (ful 1 ) . 
total_ciAipd_30by5_a(  C  3  ,0)  :-  I. 
totai_cwpd_30by5_a( CA!L3 , Cwpd_30by5_A ) :- 

total_cwpd_30by5_a(L, Subtotal ) , 

Cwpd_30by5_A  is  Subtotal  +  A. 
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get_cwpd_30by6_n(  I  ,  c  wpd_30by6  ,  cwpd_30by<b_n  ,  CCwpd_30by6- 
_N/ 1 ,03 ) :- 

f indal 1 ( cwpd_30by6 ,data ( _ ,cwpd_30by6  5_»_»_>_i_»_»_»_)  >- 
L)  , 

length(L,Cwpd_30by6_N) ,gc (ful 1 ) . 
get_cwpd_30by6_a( I , cwpd_30by6 , cwpd_30by6_a , CCwpd_30by6- 
_A/1 .0] ) :- 

f indal 1 ( Amount ,data(_,cwpd_30by6, _,_,_,_,_, Amount  »_»_)- 
,A)  , 

total_cwpd_30by6_a( A,Cwpd_30by6_A) ,gc(ful 1 ) . 
total_cwpd_30by6_a( C J ,0) :-  !. 
total_cwpd_30by6_a( CAILD , Cwpd_30by6_A ) :- 

total_cwpd_30by6_a(L, Subtotal ) , 

Cwpd_30by6_A  is  Subtotal  +  A. 

get_accpd_30_n( I , ace pd_30 , ace pd_30_n , C Accpd_30_N/ 1 .0 J- 

f indal 1 ( ac c pd _30, dat a (_, ace pd_30, _,_,_, _,_,_,_,_) ,L) , 

length(L,Accpd_30_N) ,gc (ful 1 ) . 
get_acepd_30_a( I , acepd_30 , accpd_30_a , C Accpd_30_A/ 1 .0]- 

f i  nda 1 1 ( Amount ,data(_,accpd_30, _,_,_,_,_, Amount  »  _  »  _ )  ? - 

A)  , 

total_accpd_30_a( A,Acepd_30_A) ,gc ( ful 1 ) . 

total_accpd_30_a( C J ,0) :-  !. 

total_aecpd_30_a( CA!L] ,Accpd_30_A) :- 

to tal_accpd_30_a(L, Sub  total ) , 

Aecpd_30_A  is  Subtotal  +  A. 


get_aecpd_30by2_n(  I  ,  acepd_30by2 , accpd_30by2_n , 
CAcepd_30by2_N/l .03 ) :- 

f indal 1 ( acepd_30by2 , data (_, accpd_30by2 ,_,_,_,_,_,_ , 
)  ,L)  , 

length ( L , Accpd_30by2_N ) ,gc (f ul 1 ) . 
get_accpd_30by2_a( I , aeepd_30by2 , accpd_30by2_a  , 
CAcepd_30by2_A/l .0] ) :- 

f  indal  1  (  Amount  ,data  (  _  ,  ace  pd_30by2,  _■>_■>_■>_■>_■>  Amount  , 
)  ,  A)  , 

total _accpd_30by2_a( A,Accpd_30by2_A) ,gc (ful 1 ) . 
total_acepd_30by2_a( C3 ,0) :-  !. 
total_accpd_30by2_a( CA!L] , Accpd_30by2_A ) :- 
to tal_acepd_30by2_a(L, Subtotal ) , 
Aeepd_30by2_A  is  Subtotal  +  A. 

get_accpd_30by3_n ( I , acepd_30by3 , aecpd_30by3_n , 
CAccpd_30by3_N/l .0] ) :- 


f indal 1 ( accpd_30by3 , data (_, accpd_30by3 ,_,_,_,_,_,_ , 
)  ,L)  , 

length(L, Accpd_30by3_N) ,gc (ful 1 ) . 
get_accpd_30by3_a ( I , accpd_30by J , accpd_30by3_a, 
CAccpd_30by3_A/l .0] ) :- 

f indal 1 <  Amount ,data(_,accpd_30by3, _,_,_,_,_ , Amount , 
)  ,A)  , 

to tai _acc pd _30by3_a (A, Ace pd_30by3_A) ,gc (ful 1 ) . 
total_accpd_30by3_a( C ] ,0) :-  !. 
total_accpd_30by3_a( CAILD , Accpd_30by2_A ) :- 

total_accpd_30by3_a(L, Subtotal ) , 

Accpd_30by3_A  is  Subtotal  +  A. 


get_accpd_30by'^_n(  I  ,  accpd_30by'^  ,  accpd_30by^_n, 
CAccpd_30by'^_N/l  .03  )  :- 

f indal 1 ( accpd_30by^ , data ( _ , accpd_30by^ , _ , _»_»_»_»_> 
)  ,L)  , 

length (L,Accpd_30by^_N)  ,gc(ful 1 )  . 
get_accpd_30by'^_a(  I  ,  accpd_30by'^  ,  accpd_30by'^_a  , 
CAccpd_30by^_A/l .0] ) :- 

f  indal  1  (  Amount ,  data  (  _  ,  accpd_30byA- 1  _?_»_?_»_  »  Amount  » 
)  ,A)  , 

total_accpd_30by'^_a(A,Accpd_30by^_A)  ,gc  (ful  1  )  . 
total_accpd_30by'^_a(  C  3  ,0)  :-  '.  . 
total_accpd_30by^_a(  CA;L]  ,  Accpd_30by<^_A  )  :- 

total_accpd_30by'^_a(L, Subtotal  )  , 

Accpd_30by'^_A  is  Subtotal  +  A. 

get_accpd_30by5_n ( I , accpd_30by5 , accpd_30by5_n, 

CAccpd_30by5_N/l .03 ) :- 

f indal 1 ( accpd_30by5 , data ( _ , accpd_30by5 , _ , _ 

)  ,L)  , 

ge 

iccDd  30bv5  A/1  .03  )  :- 

, Amount , 


)  ,L)  , 

length(L,Accpd_30by5_N)  ,gc(ful  1  )  . 
get_accpd_30by5_a ( I , accpd_30by5 , accpd_30by5_a, 
CAccpd_30by5_A/l .03 ) :- 

f  indal 1 ( Amount ,data(_,accpd_30by5, _,_,_,_,_, Amc 
)  ,A)  , 

total_accpd_30by5_a( A, Accpd_30by5_A) ,gc ( ful 1 ) . 
total_accpd_30by5_a(  C  3  ,0)  :-  '.  . 
total_accpd_30by5_a( CA:L3 , Accpd_30by5_A ) :- 
total_accpd_30by5_a(L, Subtotal ) , 
Accpd_30by5_A  is  Subtotal  +  A. 

get_accpd_30by6_n ( I , accpd_30by6 , accpd_30by6_n, 
CAccpd_30by6_N/l .03 ) :- 

f  indal  1  (  accpd_30by(b  ,  data  (_,  accpd_30by6  ,_,_,_,  _ 
)  ^L)  , 

length (L,Accpd_30by6_N) ,gc (ful 1 ) . 
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get_accpd_30by6_a( I , accpd_30by6 , accpd_30by6_a , 
CAccpd_30by6_A/l .0] ) :- 

f indal 1 ( Amount , data ( _ , accpd_30by6  »_»_»_»_)_) Amount , 
)  ,A)  , 

total_accpd_30by6_a( A, Accpd_30by6_A) ,gc (ful 1 ) . 

total_accpd_30by<b_a(  [  D  ,0)  :-  '.  . 

total  _accpd_30by6_a(  CAiL]  ,  Accpd_30by(fs_A  )  :- 

total_accpd_30by6_a(L, Subtotal ) , 

Accpd_30by6_A  is  Subtotal  +  A. 


get_pacc_wpd_30_n( I , pacc_wpd_30 , pacc_wpd_30_n, 
LPacc_wpd_30_N/l .0] ) :- 

findal 1 (pacc_ wpd_30,data(_, pacc_wpd_30,_,_, _,_,_, _,_,_- 
)  ,L)  , 

length(L,Pacc_wpd_30_N) ,gc (ful 1 ) . 
get_pacc_wpd_30_a ( I , pacc_wpd_30 , pacc_wpd_30_a , 
CPacc_wpd_30_A/l .0] ) :- 

f i  ndal 1 ( Amount , data ( _ , pacc_wpd_30  »_»_»_>_  5  _  »  Amount , _ , _- 
)  ,A)  , 

total_pacc_wpd_30_a(A,Pacc_wpd_30_A) ,gc (ful 1 ) . 
total_pacc_wpd_30_a(  C  J  ,0)  :-  '.. 
total _p ace _wpd_30_a( CAIL] , Pacc_wpd_30_A ) :- 

to tal_pacc_wpd_30_a(L, Sub  total ) , 

Pacc_wpd_30_A  is  Subtotal  +  A, 

get_pacc_wpd_30by23_n ( I , pacc_wpd_30by23 , pacc_wpd_30byS- 
3_n, 

[Pacc_wpd_30by23_N/l .OD ) :- 
findal 1 ( pacc_wpd_30by23 , 

data(_,pacc_wpd_30by23,_,_, _»_>_»_»_»_) »L) , 
length (L, Pace _wpd_30by23_N) ,gc(full ) . 
get_pacc_wpd_30by23_a( I , pacc_wpd_30by23 , pacc_wpd_30by2- 
3_a, 

CPacc_wpd_30by23_A/l .0] ) :- 

findal 1 (Amount ,data( _ , p ac c _wp d_ 30b y 23  »_?_»_>_>_ , Amount- 
,_,_)  ,A)  , 
total _pacc_wpd_30by23_a( A,Pacc_wpd_30by23_A) ,gc (ful 1 ) . 

tQtal_pacc_wpd_30by23_a( C ] ,0) :-  ! . 

total_pacc_wpd_30by23_a( CAIL] , Pacc_wpd_30by23_A ) :- 
total_pacc_wpd_30by23_a(L, Subtotal ) , 

Pacc_wpd_30by23_A  is  Subtotal  +  A. 
get  _pacc_wpd_30by'^_n  (  I  ,  pacc_wpd_30by'4- ,  pacc_wpd_30by^_n  , 
[Pacc_wpd_30by^_N/l .OJ ) :- 

findal  1  (  pace  _wpd  _  30b  y^  ,data  (  _  ,  pacc_wpd_30byA- ,  _i  _■>_■>_■>  _~ 
»_»_,_) »L) , 

length (L,Pacc_wpd_30by^_N) ,gc (ful 1 ) . 
get_pacc_wpd_30by'^_a  (  I  ,  pacc_wpd_30by^  ,  pacc_wpd_30by^_a  , 


CPacc_wpd_30by^_A/l .0] ) :- 

f i  ndal 1 ( Amount , data ( _ , pace _wpd _ 30b y^  »_'_'_»_'_»  Amount , - 

_,_) ,A) , 

total_pacc_wpd_30by'^_a(  A,Pacc_wpd_30by'^_A)  ,gc  (  ful  1  )  . 

total_pacc_wpd_30by'^_a(  C  ]  ,0)  :-  !  . 

total_pacc_wpd_30by4_a(  CAl  L]  ,  Pacc_wpd_30by'^_A  )  :- 

total  _pacc_tA<pd_30by^_a  (  L  ,  Sub  to  ta  1  )  , 

Pacc_wpd_30by^_A  is  Subtotal  +  A. 

get_pacc_wpd_30by5_n ( 1 , pacc_wpd_30by5 , pacc_wpd_30by5_n , 
CPacc_wpd_30by5_N/l .0] ) :- 

f  mdal 1 ( pacc_wpd_30by5 , data ( _ , pacc_wpd_30by5 )_»_?_»_?_" 
,_,_,_) ,L) , 

length (L, Pace _wpd_30by5_N) ,gc (ful 1 ) . 
get_pacc_wpd_30by5_a ( I , pacc_wpd_30by5 , pacc_wpd_30by5_a , 
CPacc_wpd_30by5_A/l .03 ) :- 

f  inda 1 1 ( Amount , data ( _ , p ac c _wp d _ 30b y 5  »  _  »  _  ^  _  >  _  »  _  »  Amount , - 
_,_) ,A) , 

total_pacc_wpd_30by5_a( A,Pacc_wpd_30by5_A) ,gc (ful 1 ) . 
total_pacc_wpd_30by5_a(  C  3  ,0)  :-  '.  . 

total_pacc_wpd_30by5_a( CA : L] , Pacc_wpd_30by5_A ) :- 
total_pacc_wpd_30by5_a(L, Subtotal ) , 

Pacc_wpd_30by5_A  is  Subtotal  +  A. 

get_pacc_wpd_30by6_n  (  I  ,  pacc_wpd_30by(f3 ,  pacc_wpd_30by6_n, 
CPacc_wpd_30by6_N/l .03 ) :- 

findal 1 (pacc_ wpd_30by6, data(_,pacc_wp d_30by6, _,_,_,_, _- 
,_,_,_) ,L) , 

length ( L , Pacc_wpd_30by6_N ) ,gc ( ful 1 ) . 
get_pacc_wpd_30by6_a ( I , pacc_wpd_30by6 , pacc_wpd_30by6_a , 
CPacc_wpd_30by6_A/l .03 ) :- 

f  i  ndal  1  (  Amount  ,  data  (  _  ,  pacc_wpd_30by6  ^  _■>  _^  _■>_■>  _■>  Amount  ,  - 
_,_) ,A) , 

total_pacc_wpd_30by6_a(  A,Pacc_wpd_30by(t>_A)  ,gc  (f  ul  1)  . 
total_pacc_wpd_30by6_a( C  3 ,0)  :-  [  . 

to tal_p ace _wpd_30by6_a( CA;L3 , Pace_wpd_30by6_A ) :- 
total_pacc_wpd_30by6_a (L, Sub  to tal )  , 

Pacc_wpd_30by6_A  is  Subtotal  +  A. 


get_pacc_wdel60_n(  I  ,pacc_iAjdel6o,paee_wdGl(S0_n, 
CPace_iMdel60_N/l  .03  )  :- 

findall (pacc_ wd el  60, data(_,pacc_wd el  60, _,_,_, _,_,_, 
)  ,L;  , 

length(L,Pacc_wdel60_N) ,gc(ful 1 ) . 
ge t_pace_wdel60_a ( I , pacc_wdel60 , pacc_wde 1 60_a , 
[Pacc_(/Mdel60_A/l  .03  )  :- 

f i  nda 1 1 ( Amount , data ( _ , pacc_wdel60 ,_,_,_,_,_, Amount , 
)  ,A)  , 


total_pacc_wdel60_a( A,Pacc_wdel60_A) ,gc (ful 1 ) . 

total_pacc_wdel60_a( C ] ,0) :-  !. 

total _pacc_wdel60_a( CA : LD , Pacc_wdel60_A ) :- 
total_pacc_wdel60_a(L ,Sub to tal ) , 
Pacc_wdel60_A  is  Subtotal  +  A. 


get 

[Pace 
f  1  nda 

)  ,L)  , 


acc_wdel90_n ( I , pacc_wde 190 , pacc_wdel90_r 

_wdel90_N/l .0] ) :- 

1 1 (pacc_wdel90,data(  ,pacc  wdel90,  ,  ,  , 


get_p 
CPacc 
f  inda 
)  ,A)  , 
total 
total 
total 


length ( L , Pacc_wde 1 90_N ) ,gc (ful 1 ) . 
acc_wdel90_a( I , pacc_wdel 90 , pacc_wdel 90_a , 
_wdel90_A/l ,0] ) :- 
1 1 (Amount ,data ( _ , pacc_wde 1 90 , _»_)_»_  ^  _ , Amount , _ 

_pacc_wdel90_a( A,Pacc_wdel90_A) ,gc (ful 1 ) . 

pacc_wdel90_a(  C  ]  ,0)  :-  '.  . 

pacc_wdel90_a( CAl L3 , Pacc_wde 1 90_A ) :- 
total_pacc_wdel90_a(L,Subtotal ) , 
Pacc_wdel90_A  is  Subtotal  +  A. 

get_pacc_wdell20_n( I ,pacc_wdell20,pacc_wdell20_n, 
CPacc_wdel 120_N/1 .0] ) :- 

f indal 1 (pacc_wdel 120 , data (_ ,pacc_wdel 120, _,_,_,_,_,_ 
,_) ,L) , 

length (L,Pacc_wdel 120_N) ,gc (ful 1 ) . 
ge t_p ace _wdel 120_a( I ,paee_wdel 120 , pace _wde 1 120_a, 
CPacc_wdel 120_A/1 .0] ) :- 

f indal 1 ( Amount ,data ( _,pacc_wdel 120, _,_,_,_,_ , Amount , 
_)  ,A)  , 

total_pacc_wdel 120_a ( A , Paee_wdel 120_A) ,gc (ful 1 ) . 
total_pace_wdel 120_a( C 3 ,0) :-  1. 
total _pacc_wd el 120_a( CAIL] ,Pace_wdel 120_A) :- 

total_paec_wdel 120_a ( L , Sub  to ta 1 )  , 

Pacc_wdel 120_A  is  Subtotal  +  A, 


get_paec_wdel 150_n ( I ,pace_wdel 150, paee_wdel 150_n, 

CPacc_wdell50_N/l ,0] ) :- 

f indal 1 (pace_wdel 1 50, data(_,pace_wdel 150, _,_,_,_,_ 


get_p 
CPacc 
f  inda 
_)  ,A) 
total 
total 
total 


ength (L,Pace_wdel 150_N) ,gc ( ful 1 ) . 

aee_wdel 150_a ( I , paec_wdel 150 ,paec_wdel 150_a, 

_wdel 150_A/1 .O: ) :- 

1 1 ( Amount ,data ( _ ,paee_wdel 150, _,_,_,_,_ , Amount , 

_p ace _wdel 1 50_a ( A , Pacc_wde 1 150_A) ,gc (ful 1 ) . 
_paec_u«jdel  150_a(  C  :  ,0)  :-  1. 
_paec_wdel 150_a( CA;l3 ,Paee_wdel 150_A) :- 
total _paec_wdel 150_a ( L , Sub  to tal )  , 
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Pace  wdell50  A  is  Subtotal 


get_pacc_wdel lBO_n( I ,pacc_wdel 180,pacc_wdel lSO_n, 
CPacc_wdel iaO_N/l .03 ) :- 

f indal 1 (pacc_wdel 1  SO , data (_, pace _wdel ISO ,_,_,_,_,_,_, _- 
,_) ,L) , 

iength(L,Pacc_wdel 1 SO_N )  , gc ( f u 1  1  )  . 
get  _p ace _wdel lSO_a(  I ,paee_wdel 180 , pace _wde 1 180_a, 
CPaee_wdel 1S0_A/1  .0] )  :- 

findall(Amount,data(_,paec_wdell80, _,_,_,_,_, Amount , _ , - 
_) ,A) , 

total_pacc_wdel 180_a ( A , Pacc_wdel 1S0_A) ,gc (ful 1 ) . 
total_pacc_wdel iaO_a( C ] ,0) :-  [. 
total_pace_wdel 180_a( CA ! L] ,Paee_wdel 180_A) :- 
total_paec_wdel 180_a(L, Subtotal  )  , 
Pacc_iAjdel  180_A  is  Subtotal  +  A. 

get_pd_repo_n( I ,pd_repo,pd_repo_n, 

CPd_repo_N/l .03 ) :- 

findall (pd_repo,data(_,pd_repo, _,_,_, _,_,_,_,_) ,L) , 

length (L,Pd_repo_N) ,ge (ful 1 ) . 
get_pd_repo_a( I ,pd_repo,pd_repo_a, 
LPd_repo_A/l .O:  )  :- 

f indal 1 ( Amount ,data(_,pd_repo  »_»_»_»_»_»  Amount  »  _  »  _ )  »  A )  , 
total_pd_repo_a( A,Pd_repo_A)  ,ge (f ul 1  )  . 
total_pd_repo_a( C ] ,0) :-  !. 
total_pd_repo_a(CA:L] ,Pd_repo_A) :- 

total _pd_repo_a ( L , Sub  to t a  1 )  , 

Pd_repo_A  is  Subtotal  +  A. 

get_pd_chg_of f _n ( I , pd_ehg_of f , pd_ehg_of f _n , 

CPd_chg_off_N/l .0] ) :- 

findall (pd_ehg_off,data(_5pd_chg_off, _,_,_, _,_,_,_,_) ,- 

L)  , 

length (L,Pd_ehg_off_N)  ,gc (ful 1 )  . 

get_pd_chg_of f _a ( I , pd_chg_of f , pd_chg_of f _a , 

LPd_chg_off _A/1 .03 ) :- 

f  i  ndal 1 ( Amount ,data(_,pd_chg_off, _,_,_,_,_, Amount  »_»_)- 

,A)  , 

total_pd_chg_off_a( A,Pd_chg_off_A) ,gc (ful 1 ) . 

total_pd_chg_off_a( C ] ,0) :-  [. 

total_pd_chg_off_a( C A ; L ] , Pd_chg_of f _A ) :- 

total_pd_chg_off_a(L, Subtotal ) , 

Pd_chg_off_A  is  Subtotal  +  A. 

get_pd_fQreelo_n( I ,pd_foreclo,pd_foreclo_n, 
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CPd_foreclo_N/l .0] )  :- 

findall (pd_foreclo,data(_,pd_foreclo, _,_,_, _,_,_,_,_)  ,- 

L)  , 

length ( L , Pd_f orec 1 o_N ) ,gc (ful 1 ) . 

get_pd_foreclo_a( I ,pd_foreclo,pd_foreclo_a, 

[Pd_foreclo_A/l .OJ ) :- 

f  indal  1  (  Amount  ,data(_,pd_fo  redo, _,_,_,_,_  ,  Amount  »_,_)- 

,A)  , 

total_pd_f oreclo_a( A,Pd_foreclo_A) ,gc (ful 1 ) . 

total_pd_foreclo_a( [ ] ,0) :-     !. 

total _pd_f orec lo_a( C A ; L] , Pd_f orec 1 o_A ) : - 

to ta l_pd_f orec lo_a(L, Sub  total  )  , 

Pd_foreclQ_A  is  Subtotal  +  A. 

get_bl<l  iqreo_n(  I  ,bl<l  iqreo  ,bkl  iqreo_n, 

CBkl iqreo_N/l .0] ) :- 

findall  (bl<liqreo,data(_,bkliqreo, _,_,_, _,_,_,_,_)  ,L)  , 

length ( L , Bk liqreo_N ) , gc ( f u 1  1  )  . 
get_bkl iqreo _a( I ,bkl iqreo, bkl iqreo _a, 
CBkl iqreo_A/l .0] )  :- 

f i  nda 1 1 ( Amount ,data(_,bkliqreo, _,_,_,_,_, Amount  »  _  »  _ )  » - 
A)  , 

to tal _bkl iqreo _a( A, Bkl iqreo _A) ,gc (ful 1 ) . 
total_bkl iqreo_a( C ] ,0) :-  1. 
total_bkliqreo_a(CA:L3,Bkliqreo_A):- 

total_bkl iqreo_a(L, Sub  to  tal), 

Bkliqreo_A  is  Subtotal  +  A. 


get_5ettled_n( I ,settled,settled_n, 

CSettled_N/l .03 ) :- 

findall(settled,data(_, settled, _,_,_, _,_,_,_,_)  ,L)  , 

length (L, Set tled_N) ,gc (ful 1 ) . 
get_settled_a( I ,settled,settled_a, 
:Settled_A/l .0] ) :- 

f  i  ndal  1  (  Amount  ,data(_,settled, _,_,_,_,_,  Amount  »  _  ,  _  )  -. 
total_settled_a( A,Settled_A)  ,gc (ful 1  )  . 
total_sett led_a( C ] ,0) :-  !. 
total_settled_a(CA:L],Settled_A):- 

total_settled_a(L,Subtotal  )  , 

Settled  A  is  Subtotal  +  A. 


qet_bk_adj_pln_n( I ,bk_adj_pln,bk_adj_pln_n, 

CBk_ad  j_pln_N/l .0] )  :- 

findal 1 (bk_adj_pln,data(_,bk_adj_pln,_,_,_, 

L)  , 

length ( L , Bk_ad  j_pln_N),gc(full). 

get_bk_ad j_pln_a( I , b k_ad j _p 1 n , b k_ad j _p 1 n_a , 
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[:Bk_ad  j  .pln_A/l  .OJ  )  :- 

f i  ndal 1 ( Amount , data(_,bk_ ad j_pln, _,_,_,_,_, An 

,A)  , 

total_bk_ad  j_pln_a(  A,BI<_ad  j_pln_A)  ,gc  (ful  1  )  . 

total_bk_ad j_pln_a( C ] ,0) :-  i. 

total_bk_ad j_pln_a( CAIL] , Bk_ad j _p ln_A ) :- 
total_bk_adj_pln_a(L, Sub  total ) , 
Bk_adj_pln_A  is  Subtotal  +  A. 


get_scni  _nwl oc_n (  I , sen l_nwloc , sen  1 _nwloc_n , 

CScnl_nwloc_N/l .0] ) :- 

findall(scnl_nwloe,data(_,scnl_nwloe, _,_,_, _,_,_»_, 

L)  , 

length ( L ,Scnl _nwloc_N ) ,gc (ful 1 ) . 

get_scnl_nwlae_a( I ,scnl_nwloc,scnl_nwloc_a, 

CScnl_nwloc_A/ 1.03):- 

f i  ndal 1 ( Amount ,data(_,scnl_nwloe,_,_,_,_,_,Amount,_ 

,A)  , 

total_scnl_nwloc_a(A,Scnl_nwloc_A) ,ge(full ) . 

total_scnl_nwloc_a( C 3 ,0) :-  1. 

to tal_scnl_nwloc_a( CAlL3,Scnl_nwloc_A) :- 

total_scnl_nwloc_a ( L, Subtotal ) , 

Scnl  nwloe  A  is  Subtotal  +  A. 


get_co_notAj_pay_n(  I  ,co_now_pay,co_now_pay_n, 

CCo_now_pay_N/l .03 ) :- 

fi nd all(co_no w_p ay, data(_,co_ no w_pay, _,_,_, _,_,_,_ 

L)  , 

length ( L , Co_now_pay_N )  ,gc ( f ul  1  )  . 

get_co_now_pay_a ( I , co_now_pay , co_now_pay_a, 

CCo_now_pay_A/l .03 ) :- 

f  indal 1 ( Amount  »data(_,eo_ no w_pay, _,_,_,_,_, Amount , 

,A)  , 

total_co_now_pay_a(A,Co_now_pay_A) ,gc(full ) . 

to ta 1 _co_now_pay_a ( C 3 , 0 ) : -  1. 

total_co_now_pay_a( CAIL3 ,Co_now_pay_A) :- 

to ta 1 _co_now_pay_a ( L 5  Sub  to ta 1 ) , 

Co_now_pay_A  is  Subtotal  +  A. 


get_fore_proc_n( I ,fore_proc,fore_proc_ 

[Fore_proe_N/l .03 ) :- 

findal 1 (fore_proc,data(_,fore_proc,_,_ 

length(L,Fore_proc_N) ,ge(full ) . 
get_fore_proc_a( I ,fore_proc,fore_proc_ 
CFore_proc_A/l .03 ) :- 


f  indal  1  (  Amount  ,data(_,fore_p  roc, _,_,_,_,_  ,  Amouint ,  _  , 

A)  , 

tQtal_ tore _prGc_a(A, Fore _proc_A)  ,gc(full  )  . 

to ta 1 _f ore_proc_a ( C ] , 0 ) : -  i. 

total_fore_proc_a( CA;L] ,Fore_proc_A) :- 

total_f ore_proc_a( L, Subtotal ) , 

Fore_proc_A  is  Subtotal  +  A. 


get_gov_claim_n(  I  ,gov_claim,gov_claim_n, 

LGov_claim_N/ 1 .0] ) :- 

finaal 1 (gov_claim,data(_,gov_claim, _,_,_, _,_,_,_,_) 

length ( L , Go v_c 1  a i m_N )  ,gc ( ful 1  )  . 
get_gov_claim_a( I ,gov_claim,gov_claim_a, 
CGov_claim_A/ I .0]  )  :- 

fi  ndal 1  ( Amount ,data(_,gov_claim, _,_,_,_,_, Amount , _ , 
A)  , 

total_gov_claim_a(A,Gov_claim_A) ,gc(full) . 
to tal _gov_c laim_a ( C ] , 0 ) : -  !. 
total _gov_c laim_a (CAiL],Gov_claim_A) :- 

total_gov_claim_a(L, Subtotal ) , 

Gov  claim  A  is  Subtotal  +  A. 


get_close_np_aa_n( I ,close_np_aa,close_np 
CClose_np_aa_N/ 1.0]) :- 
findall(close_np_aa,data(_,close_np_aa,_ 


length (L,Clo5e_np_aa_N) ,gc(ful 1 ) . 
get_c'lo5e_np_aa_a(  I  ,close_np_aa,close_np 
CClose_np_aa_A/l .0] ) :- 

f  i  ndal 1  ( Amount ,data(_,close_np_aa, _,_,_, 
)  ,A)  , 

total_close_np_aa_a(A,C lose_np  _aa_A )  , gc ( 
to ta 1 _c 1 ose_np_aa_a ( C ] , 0 ) : -  !. 
total_clo5e_np _aa_3( CAIL] ,Close_np_aa_A) 
total_close_np_aa_a(L,Subtotal  )  -, 
C 1 Qse_np_aa_A  is  Subtotal  +  A. 


get_5cnl_n( I ,scnl ,scnl_n, 

Cbcni  _N/ 1.0]):- 

findall  (scnl  ,data(_,scnl  ^  _•>_■>_■>  _■> 

length(L,Scnl_N)  ,gc (ful 1  )  . 
Qet_scnl_a( I ,scnl ,scnl_a, 
LScnl_A/l .0] ) :- 

f  1  nda 1 1 ( Amount ,data(_,scnl »_»_»_? 
total_scnl_a(A,Scnl_A),gc(full). 
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totai_5cnl_a(  L  J ,0)  :-  I  . 

total_scnl_a( LA ; LD ,Scnl_A) :- 

to tal_scni_a(L, Subtotal ) , 
bcnl  A  is  Subt6tal  +  A. 


get  _ 
Lf-ed 
1 1  nd 
L)  , 
ieng 
get  _ 
Lhed 
t  1  nd 
,A)  , 
to  ta 
to  ta 
tota 


ted_tax_in_n( I ,fed_tax_in,Ted_tax_ln_n, 

_tax  _ln_N/ 1.0]):- 

ail ( fed_tax_ln,data(_,fed_tax_in, _,_,_, _,_,_,_, 

th(L,l-ed_tax_in_N)  ,gc(fuil  ;  . 

red_tax_ln_a( I , fed_tax_ ln,ted_tax_in_a, 

_tax_ln_A/l .0] ) : - 

a  1 1 ( Amount ,data(_,fed_tax_in, _,_,_,_,_, Amount, _ 

l_f ed_tax_ln_a( A,Fed_tax_in_A) ,gc(ful 1 ) . 

fed_tax_ln_a( C ] ,0) :-  1. 
l_fed_tax_ln_a([AiL],Fed_tax_ln_A):- 

total_fed_tax_ln_a(L, Sub  total  )  , 

hed_tax_ln  A  is  Subtotal  +  A. 


get_t 
L(-ed_ 
f  1  nda 
>  ,L)  •, 
ieng 
get_t 
Ll-ed_ 
t  1  nda 
)  ,A)  , 
total 
total 
total 


ed_tax_rel_n ( I ,fed_tax_rel , f ed_tax_re 1 _n , 

tax_rel_N/l  .0] )  :- 

1 1 (f ed_tax_r el, data(_,fed_tax_rel,_, _,_,_,_,_, 

th(L,hed_tax_rel_N)  ,gc(full  )  . 

ed_tax_rel _a( I ,fed_tax_rel , f ed_tax_re 1 _a , 

tax_rel_A/l .03 ) :- 

1 1 ( Amount ,data(_,fed_tax_rel  »_»_»_»_»_»  Amount , 

_ted_tax_rel_a(  A,Fed_tax._rei_A)  ,gc  (ful  1  )  . 
_f ed_tax_rel_a( C J ,0) :-  I. 
_fed_tax_rel_a( CA:L3 , Fed_ tax_re 1 _A ) :- 
total _f ed_tax_rel _a(L,Subtotal  )  , 
f-ed  tax  rel  A  is  Subtotal  +  A. 


get_judgmt_sat_n( I , judgmt_sat, judgmt_sat_n, 

LJudqmt_sat_N/1.0] ) :- 

tindailC  judgmt_sat,data(_, judgmt_sat, _,_,_, 


)  ,- 


L)  , 

iength(L,Judgmt_sat_N)  ,gc(tull)  . 

get_judgmt_sat_a( I , judgmt_sat , judgmt_5at_a, 

L Judgmt_  sat_A/l .0]  )  :- 

t 1 nda 1 1 ( Amount ,data(_, judgmt_5at, _,_,_,_,_, Amount ,_,_)- 

,  A  >  , 

total_judgmt_sat_a(A,Judqmt_sat_A)  ,gc(full)  . 

total  _  judgmt_sat_a  (  C  J  ,0  )  :  -  '.  . 
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total_juclgmt_sat_a(CA;L]  ,  Judgmt _5at_A  )  :- 
total_judgmt_sat_a(L, Sub  total )  , 
Juclgmt_sat_A  is  Subtotal  +  A. 


get_ judg_vacat_n ( I , judg_vacat, judg_vacat_n , 

C Judg_vacat_N/l .0] ) :- 

findall ( judg_vacat,data(_, judg_vac at, _,_,_, _,_,_,_ 

L)  , 

length(L,Judg_vacat_N)  ,gc(ful 1  )  . 

get_judg_vacat_a( I , judg_vacat, judg_vacat_a, 

CJudg_vacat_A/l .0] ) :- 

f i  ndal 1 ( Amount ,data(_i  judg_vacat ,_,_,_,_,_, Amount , 

«A)  , 

total_judg_vacat_a(A, Judg_vacat_A ) , gc ( f ul 1 ) . 

total_ judg_vacat_a< C ] ,0 ) : -  1. 

total_judg_vacat_a( CA:L3 ,Judg_vacat_A) :- 

to tal_judg_vacat_a(L, Sub  total ) , 

Judg_vacat_A  is  Subtotal  +  A. 


get_mech_lien_n( I ,mech_lien,mech_lien_n, 

CMech_l ien_N/l .01 ) :- 

f  inda 1 1  ( mech_l ien,data(_,mech_lien, _,_,_, _,_,_,_, 

length (L,Mech_l ien_N ) , gc ( f u 1 1 ) . 
get_mech_l ien_a ( I ,mech_l ien , mech_l ien_a , 
CMech_lien_A/ 1.0]):- 

findal 1 ( Amount ,data ( _ ,mech_l ien, _,_,_,_,_ , Amount , 
A)  , 

to tal_mech_l ien_a( A ,Mech_l ien_A),gc(full). 
total_mech_l  ien_a(  C  ]  ,0)  :  -  '.  . 
total_mech_l ien_a( CAIL] ,Mech_l ien_A) :- 

total_mech_l ien_a(L , Subtotal ) , 

Mech_lien_A  is  Subtotal  +  A. 


get_mech_rele_n( I ,mech_rele ,mech_rele_n, 

Lnech_rele_N/ 1.0]):- 

f  1  nda  1  1  (  mech_reie  ,  data  (  _  ,mech_rele  ^  _,_  i  _■>_■>_'>_■>_■>  _ 

length  (  L  ,  [iGCh_rel  e_N  )  ,gc  (f  ul  1  )  . 
get_mech_rele_a( I , mech_re le,mech_rele_a, 
LMech_rele_A/ 1.0]):- 

fi  ndal  1  (  Amount  ,  data  (  _  ,  mech_reie  ^  _■>  _i  _^  _■>  _,  Amount  ,  _ 
A)  , 

total _mech_rele_a( A,Mech_rele_A) ,gc (ful 1 ) . 
to  tal  _mech_rele_a  (  C  ]  ,  0  )  :  -  '.  . 
total_mech_rele_a( [AIL] , Mech_re 1 e_A ) :- 
total_mech_rele_a(L,SubtQtal ) , 
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Nech_rele_A  is  Subtotal  +  A. 


get_mn_nntg_f  i  l_n(  I  ,mn_mtg_fi  1  ,  mn_mtg_f  i  1  _n  , 

CMn_mtg_f i 1_N/1 .03 ) :- 

f i  ndal 1 ( mn_mtg_f  i 1 , data ( _ , mn_mtg_f  il»_»_5_»_»_»_»_ 

L)  , 

length (L,Mn_mtg_fi 1_N)  ,gc ( ful 1  )  . 

get_mn_mtg_fil_a( I ,mn_mtg_fil ,mn_mtg_fil_a, 

CMn_mtg_f 1 1_A/1 .03  )  :- 

f  i  nda 1 1 ( Amount ,data(_,mn_mtg_fi 1 ?_?_»_i_?_5  Amount , 

,A)  , 

total _mn_mtg_f  i l_a(A,Mn_mtg_f  i 1 _A )  , gc ( f ul 1 )  . 

total_mn_mtg_f i l_a( C : ,0) :-  t. 

total_mn_mtg_f i l_a( CA!L] ,Mn_mtg_f i 1 _A ) : - 

total_mn_mtg_fil_a(L,Subtotal  )  , 

Mn_mtg_fil_A  is  Subtotal  +  A. 


get_nt_respon_n ( I , nt_respon , nt_respon_n , 

CNt_respon_N/l .0] ) :- 

find all (nt_respon,data(_,nt_respon, _,_,_, _,_,_,_,_) ,L) , 

length(L,Nt_respon_N) ,gc(full ) . 
get_nt_respon_a ( I , nt_respon , nt_respon_a , 
CNt_respon_A/l .03 ) :- 

f i  ndal 1 ( Amount ,data(_,nt_respon, _,_,_,_,_, Amount  »  _  »  _  )  » - 
A)  , 

total _nt_respon_a (A,Nt_respon_A) ,gc(full ) . 
total_nt_respon_a ( C 3 , 0 ) : -  [. 
total _nt_respon_a ( CAIL3 ,Nt_respon_A) :- 

total _nt_respon_a ( L , Sub  to tal ) , 

Nt_respon_A  is  Subtotal  +  A. 


get_stat_tx_ln_n( I ,stat_tx_ln,stat_tx_ln_n, 

LStat_tx_ln_N/l .03 ) :- 

findal 1 (stat_tx_ln,data(_,stat_tx_ln, _,_,_, _,_,_,_, 

L)  , 

length(L,Stat_tx_ln_N)  ,gc ( tul 1  )  . 

get_stat_tx_ln_a( I ,stat_tx_ln,stat_tx_ln_a, 

CStat_tx_ln_A/l .03 )  :- 

findal 1 ( Amount ,data(_,stat_tx_ln, _,_,_,_,_, Amount , _ 

,A)  , 

total_stat_tx_ln_a( A,Stat_tx_ln_A) ,gc (ful 1 ) . 

tQtal_5tat_tx_ln_a( C 3 ,0) :-  l. 

total_stat_tx_ln_a( [A!L3,Stat_tx_ln_A) :- 

total_stat_tx_ln_a(L, Subtotal ) , 

Stat_tx_ln_A  is  Subtotal  +  A. 
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get_st 
LSta_t 
f  i  nda 1 
L)  , 

length 
get_st 
CSta_t 
f  i  nda 1 
,  A)  , 
total _ 
total, 
total 


a_tx_rel_n(I,sta_tx_rel,sta_tx_rel_n, 

x_rel_N/l .03 ) :- 

1 (sta_tx_rel ,data(_,sta_tx_rel »_>_>_»_>_»_>_ 

(L,Sta_tx_rel_N) ,gc(full) . 

a_tx_rel_a( I ,sta_tx_rel ,sta_tx_rel_a, 

X  rel_A/ 1.0]):- 

1 (Amount ,data(_,5ta_tx_rel »_)_5_»_?_»  Amount , 

sta_tx_rel_a(A,Sta_tx_rel_A) ,gc(full ) . 
.5ta_tx_rel_a( C 3 ,0) :-  !. 
sta_tx_rel_a(CA:L],Sta_tx_rel_A):- 
:otal_sta_tx_rel_a(L, Sub  total ) , 
ita_tx_rel_A  is  Subtotal  +  A. 


get_5uit_di  smd_n ( I ,suit_dismd,suit_d  ismd_n, 

CSui t_dismd_N/ 1.03):- 

findall(suit_dismd,data(_,5uit_d  ismd  »_?_»_»_)_»_»_>_ 

L)  , 

length(L,Suit_dismd_N) ,gc (ful 1 ) . 

get_suit_dismd_a( I ,suit_dismd,suit_dismd_a, 

CSui t_d ismd _A/1 .03 ) :- 

t  i  ndal 1 ( Amount ,data(_,sui  t_dismd ,_, _?_5_»_»  Amount , _ , 

>A)  , 

total_sui t_dismd_a( A,Sui  t_dismd_A)  ,gc (ful 1 )  . 

total_suit_dismd_a( C 3 ,0) :-     l . 

total_suit_di5md_a( CA!L3,Suit_dismd_A) :- 

total_sui t_d ismd _a(L, Sub total ) , 

Suit_dismd_A  is  Subtotal  +  A. 


get_wage_asi  gn_n  (  I  ,  wage_as  i  gn  ,  iAjage_asi  gn_n  , 

CWage_asign_N/ 1 .03 ) :- 

findal 1 (wage_asign,data(_,wage_asign, _,_,_, _,_,_,_ 

L)  , 

length(L,Wage_asign_N) ,gc(ful 1 ) . 

get_wage_as  ign_a  (  I  ,  wage_as  i  gn  ,  iAiage_as  i  gn_a  , 

:Wage_asign_A/l .03 ) :- 

f 1 ndal 1 ( Amount ,data ( _ , wage_asign, _»_>_»_>_  >  Amount , 

,A)  , 

total_waqe_asign_a(A,Wage_asign_A) ,gc(full ) . 

to tal _wage_as ign_a ( C 3 , 0 ) : -  !. 

total_wage_asign_a( CA;L3 ,Wage_asign_A) :- 

total_wage_asign_a(L,Subtotal ) , 

Wage_asign_A  is  Subtotal  +  A. 


get_wa_release_n  (  I  ,  wa_release  ,  iMa_release_n, 
CWa_release_N/l .03 ) :- 
findall(wa_release,data(_,wa_relea5e, _,_,_, 


leng th ( L , Wa_release_N )  , gc ( f u 1  1  )  . 

get_wa_release_a ( I , wa_release , wa_release_a, 

CWa_release_A/l .0] ) :- 

f i  ndal 1 ( Amount ,data(_,wa_releas ©,_,_, _,_,_, Amount , _ 

,A)  , 

total _wa_release_a (A,Wa_release_A) ,gc(full ) . 

to tal _wa_release_a ( C ] , 0 ) : -  !. 

total  _wa_release_a(  CAILl  ,UJa_release_A)  :- 

to tal _wa_release_a ( L , Sub  to tal ) , 

Ua  release  A  is  Subtotal  +  A. 


get_refinanced_n( I ,ref inane ed,ref inane ed_n, 

CRef inanced_N/l .03 ) :- 

fi nd all (refinanced,data(_, refinanced, _,_,_, _,_,_,_, 

L)  , 

length (L,Refinanced_N) ,gc (ful 1 ) . 

get_ref inane ed_a ( I ,refinaneed,refinaneed_a, 

CRef inanced_A/l .0] ) :- 

f  i  ndal 1 ( Amount ,data(_,refi  nanced  »_>_»_>_>_»  Amount , _ 


to tal _ref inane ed_a (A,Refinaneed_A) ,ge(full ) . 

total _refinaneed_a ( C ], 0 ): -  1. 

total_refinaneed_a( CAIL3 ,Refinaneed_A) :- 
total_ref inane ed_a(L, Subtotal ) , 
Refinaneed_A  is  Subtotal  +  A. 


get_er_cd_lost_n( I ,er_ed_lost ,er_ed_lost_n, 

CCr_cd_lost_N/1.0]) :- 

fi nd all (cr_cd_lost,data(_,er_ed_lo5t, _,_,_, _,_,_,_ 

L)  , 

length(L,Cr_cd_lost_N) ,gc (ful 1 ) . 

get_cr_cd_lost_a( I ,cr_cd_lQst,cr_cd_lGst_a, 

CCr_cd__lost_A/1.0])  :- 

findal 1 (Amount ,data(_,cr_cd_lost ,_, _,_,_,_, Amount , 

,A)  , 

total_er_ed_lost_a(A,Cr_cd_lost_A) ,gc(full ) . 

tQtal_cr_ed_lost_a(  C  J  ,0)  :-  '.  . 

total_er_ed_lost_a( CA!L] ,Cr_ed_lost_A) :- 

total_cr_cd_lost_a(L,Subtotal ) , 

Cr_cd  lost  A  is  Subtotal  +  A. 


get_c los_inac_n( I ,c los_inac ,c los_inac_n, 

CClos_inac_N/l .0] ) :- 

f indal 1 ( c los_inac ,data(_,clos_inac, _,_,_, _,_,_,_, 

length ( L , C 1 os_ i nac_N )  ,gc ( ful 1  )  . 
get_c los_inac_a ( I ,c lo5_inac ,c los_inac_a, 
CClos_inac_A/l .02) :- 

t indal 1 (Amount ,data ( _ ,c los_inac  »_»_»_»_»_ , Amount , 
A)  , 

total _c los_inac_a ( A , C 1 os_ i nac_A ) ,gc ( ful 1 ) . 
to tal _c ios_inac_a ( C ] , 0 ) : -  !. 
to tal  _c los_inac_a( C A  I L] , Clos_inac_A)  : - 

total_clos_inac_a(L, Subtotal ) , 

Clos_inac_A  is  Subtotal  +  A. 


get_tr 
CTrans 
f indal 
L)  , 

length 
get_tr 
CTrans 
f indal 
,A)  , 
total_ 
total_ 
total 


ansfered_n( I , transfer ed, transfer ed_n, 

fered_N/l .01 )   :- 

1 ( transf ered ,data(_, transfered, _,_,_, 


(L,Transfered_N)  ,gc (ful 1)  . 

ansfered_a( I , transfered, transfer ed_a, 

fered_A/l .0] )  :- 

1 ( Amount ,data(_, transfered, _,_,_,_,_, Amount , 

transfer ed_a( A, Transf ered _ A ) , gc ( f ul 1 ) . 
transf ered_a( C : ,0) :-  1. 
trans fered_a( CAILD , Trans fered_A) :- 
;otal_transf ered_a ( L , Subtotal  )  , 
ransfered_A  is  Subtotal  +  A. 


get_ 

CToo 

find 

L)  , 

leng 

get_ 

CToo 

find 

,A)  , 

tota 

to  ta 

tota 


t , too_new_r  t_n, 


new_r  t_n (  I , too_nei 
_rt_N/l .0] ) :- 
a  1 1  ( too_new_r  t , data ( _ , too_new_r  t ,_,_,_ , 

th ( L , Too_new_r  t_N),gc(full). 

too_new_r t_a (  I  , too_new_r  t , too_new_r  t _a , 

_new_rt_A/l .0] ) :- 

al 1 (Amount ,data(_, too_new_r t ,_,_,_,_»_, 


l_too_new_rt_a(A,  Too_new_r  t_A  )  ,  gc  ( -f 

l_too_new_rt_a( C D ,0) :-  !. 

l_too_new_rt_a( CA IL] , Too_new_r t _A ) : 
total_tQO_new_rt_a(L, Subtotal ) , 
Too  new  rt  A  is  Subtotal  +  A. 


get_paid_sati5_n( I ,paid_satis,paid_satis_n, 
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CPaid_5atis_N/l .OD ) :- 

f i  ndal l(paid_satis,data(_»paid_satis, _»_,_»_»_»_»_ 

L)  , 

length ( L, Pa id_satis_N) ,gc (ful 1 ) . 

get_paid_sati5_a( I ,paid_satis,paid_satis_a, 

CPaid_satis_A/l .0]  )  :- 

f i  ndal 1 ( Amount ,data(_,paid_satis, _,_,_,_,_, Amount , 

,A)  , 

total_paid_satis_a(A,Paid_satis_A) ,gc(full ) . 

to tai _pa id_sat is_a ( C  ]  , 0 )  : -  1. 

total _paid_satis_a( CAIL3 ,Paid_satis_A) :- 

total_paid_satis_a(L , Sub  tot a  1 )  , 

Paid_5atis_A  is  Subtotal  +  A. 


get_paid_acct_n( I ,paid_acct,paid_acct_n, 

[Paid_acct_N/l .03 ) :- 

find all (paid_acct,data(_,paid_acct, _,_,_, _,_,_,_,_) ,L) 

length(L,Paid_acct_N) ,gc (ful 1 ) . 
get_paid_acct_a( I ,paid_acct,paid_acct_a, 
CPaid_acct_A/l .0] ) :- 

f i  nda 1 1 ( Amount ,data(_,paid_acct, _,_,_,_,_, Amount  »  _  »  _ )  » 
A)  , 

total_paid_acct_a(A,Paid_acct_A) ,gc(ful 1 ) . 
to tal_paid_acc t_a ( C 3 , 0 ) : -  !. 
total_paid_acct_a( CA;L] ,Paid_acc t_A ) :- 

to tal_p a id_acct_a(L, Subtotal ) , 

Paid_acct_A  is  Subtotal  +  A. 


get_deceased_n ( I , deceased ,deceased_n, 

t Dec eased _N /I .0] ) :- 

findal 1 (deceased,data(_, dec eased, _,_,_,_, 
length ( L , Deceased _N ) ,gc ( ful 1 ) . 

get_deceased_a ( I , deceased , deceased_a , 

[ Deceased _A/ 1.03):- 

f 1 nda 1 1 ( Amount , data ( _ , deceased  ?  _  ?  _  ?  _  >  _  »  _ i 

A)  , 

total_dec eased _a(A, Deceased _ A ) , gc ( f ul 1 ) . 

total_deceased_a  (  C  3  ,  0  )  :  -  '.  . 

total _dec eased _a( CA ! L3 , Deceased _A) :- 
total _deceased_a (L,Subtotal ) , 
Deceased_A  is  Subtotal  +  A. 


get_cr_ln_clos_n( I ,cr_ln_clos,cr_ln_clos_n, 
[Cr_ln_clos_N/1.03):- 


findal 1 (cr_ln_clos,data(_,cr_ln_clos, _,_,_, _,_,_,_ 

L)  , 

length ( L , Cr_ 1 n_c los_N ) ,gc ( ful 1 ) . 

get_cr_ln_clos_a( I ,cr_ln_clos,cr_ln_clos_a, 

CCr_ln_clos_A/l .0] ) :- 

findal 1 ( Amount ,data ( _ , cr_ln_c los, _,_,_,_,_, Amount , 

,A)  , 

total _cr _ln_c 1 os_a ( A , Cr_ 1 n_c los_A ) ,gc (ful 1 ) . 

total_cr_ln_clos_a( C D ,0) :-  ! . 

total_cr_ln_clos_a( CA!L] , Cr_ 1 n_c 1 os_A ) :- 

to tal_cr_ln_clos_a(L, Sub  total ) , 

Cr_ln_clos_A  is  Subtotal  +  A. 


get_redmd_repo_n ( I , redmd_repo , redmd_repo_n, 

CRedmd_repo_N/l .0] ) :- 

findal 1 (redmd_repo,data(_,redmd_repo, _,_,_, _,_,_,_ 

L)  , 

length ( L , Redmd_repo_N ) ,gc (ful 1 ) . 

get_redmd_repo_a( I ,redmd_repo,redmd_repo_a, 

[Redmd_repo_A/l .0] ) :- 

findal 1 (Amount ,data(_,redmd_repo  »_»_>_»_»_?  Amount , 

,A)  , 

to  ta 1 _redmd_repo_a ( A , Redmd_repo_A )  , gc ( f ul 1 )  . 

to tal _redmd_repo_a ( C ] , 0 ) : -  1. 

total _redmd_repo_a ( C A  1 L  D , Redmd_repo_A )  : - 

to tal_redmd_repo_a(L, Subtotal ) , 

Redmd_repo_A  is  Subtotal  +  A. 


get_cur _wa5_co 1 _n ( I ,cur_was_col , cur_was_co 1 _n , 
LCur_was_col_N/I .0] ) :- 

find  all  (cur_was_col  ,data(_,cur_was_col  i  _■»_•>_■)_■>_■>  _i 
)  ,L)  , 

length ( L , Cur_was_co 1 _N ) ,gc (ful 1 ) . 
get_cur_was_co 1 _a ( I ,cur_was_col , cur_was_co 1 _a, 
LCur_wa5_col_A/l .0] ) :- 

f  i  ndal  1  (  Amount  ,data(_,cur_was_col  ^  _■>_  ^  _■>_■>  _■>  Amount  , 
)  ,A)  , 

total_cur_was_col_a(  A,Cur_iAjas_co  1  _A  )  ,  gc  (  f  u  1  1  )  . 
total_cur_was_co l_a ( C ] , 0 ) : -  !. 
total_cur_was_col_a( CA IL] , Cur _was_co 1 _A ) :- 
total_cur_was_col_a(L, Subtotal ) , 
Cur  was_col_A  is  Subtotal  +  A. 


get_cr_ln_rnst_n(  I  ,cr_ln_rnst,cr_ln_rnst_n, 
CCr  In  rnst  N/1.0]):- 


findal 1 (cr_ln_rnst ,data(_,cr_ln_rn5t  »_5_>_»_»_»_»_! 

L)  , 

length ( L , Cr_ 1 n_rnst_N ) ,gc ( ful 1 ) . 

get_cr_ln_rnst_a( I ,cr_ln_rnst,cr_ln_rnst_a, 

CCr_ln_rnst_A/l .0] ) :- 

f  indal 1 ( Amount ,data(_,cr_ln_rnst, _,_,_,_,_, Amount , _ 

,A)  , 

total_cr_ln_rnst_a(A,Cr_l n_rnst_A ) , gc ( f ul 1 ) . 

total_cr_ln_rnst_a( C ] ,0) :-  !. 

total_cr_ln_rnst_a( CAIL] ,Cr_ln_rnst_A) :- 

total _cr_ln_rnst_a(L,Subtotal ) , 

Cr_ln_rnst_A  is  Subtotal  +  A. 


get_cur_wa5_for_n( I ,cur_was_for,cur_was_for_n, 
CCur_vMas_for_N/l  .0]  )  :- 

fi nd all (cur_wa5_for,data(_,cur_was_for, _,_,_, _,_,_, 
)  ,L)  , 

length(L,Cur_was_for_N) ,gc (ful 1 ) . 
get_cur_was_f ar_a ( I , cur_was_f or , cur_was_f or_a , 
CCur_was_for_A/l .O: ) :- 

findal 1 ( Amount ,data(_,cur_wa5_for, _,_,_,_,_, Amount , 
)  ,A)  , 

to tal_cur_was_f or_a (A,Cur_was_for_A) ,gc(full ) . 
total_cur_was_f or_a ( C ] , 0 ) : -  1. 
tQtal_cur_was_for_a( CAIL] , Cur_was_f or_A ) : - 
tQtal_cur_iAia5_for_a(L,Subtotal  )  , 
Cur  was  for  A  is  Subtotal  +  A. 


get_pd_not_aa_n ( I , pd_no t_aa , pd_no t_aa_n , 

LPd_not_aa_N/l .0] ) :- 

findal 1 (pd_not_aa,data(_,pd_ no t_aa, _,_,_, _,_,_,_, 

length ( L , Pd_na t _aa_N ) ,gc (ful 1 ) . 
get_pd_no t_aa_a ( I , pd_no t_aa , pd_no t_aa_a , 
CPd_not_aa_A/l .0] ) :- 

f  i  nda 1 1  ( Amount , data(_,pd_ no t_aa, _,_,_,_,_, Amount , 
A)  , 

total_pd_not_aa_a(A,Pd_not_aa_A) ,gc (ful 1 ) . 
to ta l_pd_no t_aa_a ( C ] , 0 ) : -  i. 
total _pd_no t_aa_a ( CAIL] ,Pd_not_aa_A) :- 

total_pd_not_aa_a(L,Subtotal ) , 

Pd  not  aa  A  is  Subtotal  +  A. 


get_city_tx_ln_n(  I  ,city_tx_ln,city_tx 
CCity_tx_ln_N/l .0] ) :- 


findall(city_tx_ln,data(_,citY_tx_ln, 

L)  , 

length 

get_c  i 

CCity_ 

f indal 

,A)  , 

total_ 

tQtal_ 

total 


(L,Ci ty_tx_ln_N) ,gc (ful 1 ) , 
tY_tx_ln_a( I ,city_tx_ln,city_tx_ln_a, 
tx_ln_A/l .0] ) :- 
1  (Amount  ,data(_,city_tx_ln,_,_,_,_,_,i^ 

ci ty_tx_ln_a( A,Ci ty_tx_ln_A) ,gc (ful 1 ) . 
,ci ty_tx_ln_a( C ] ,0) :-  1, 
ci ty_tx_ln_a( CA!L],City_tx_ln_A) :- 
Qtal_city_tx_ln_a(L, Sub total ) , 
itv_tx_ln_A  is  Subtotal  +  A. 


get_c 
CCity 
f  inda 
)  ,L)  , 
leng 
get_c 
CCity 
f  inda 
)  ,A)  , 
total 
total 
total 


ity_tx_rel_n(  I  ,city_tx_rel ,city_tx_rel_n, 

_tx_rel_N/l .0] ) :- 

11  (city_tx_rel  ,data(_,city_tx_rel  ^  _■>_■>_■>_■>  _j  _■> 

th(L,City_tx_rel_N) ,gc(ful 1 ) . 

ity_tx_rel_a(  I  ,city_tx_rel ,city_tx_rel_a, 

_tx_rel_A/l .0] ) :- 

1 1 ( Amount ,data(_,city_tx_rel »_»_i_»_)_»  Amount , 

_city_tx_rel_a(A,City_tx_rel_A) ,gc (ful 1 ) . 
_city_tx_rel_a( C ] ,0) :-  !. 
_city_tx_rel_a( CA:L] ,City_tx_rel_A) :- 
total_city_tx_rel_a(L,Subtotal ) , 
Ci  ty_tx_rel_A  is  Subtotal  +  A. 


get_consel_5er_n(  I  ,consel_5er,consel_ser_n, 

CConsel_ser_N/l .0] ) :- 

find all (CQnsel_ser,data(_,consel_ser, _,_,_, _,_,_,_, 

L)  , 

length ( L , Consel_ser_N ) , gc ( f ul 1 ) . 

get_consel_5er_a( I ,consel_ser,con5el_ser_a, 

CConsel_ser_A/l .03 ) :- 

f  i  nda 1 1  ( Amount ,data(_,consel_5er, _,_,_,_,_, Amount , _ 

,  A;  , 

total_consel_ser_a(A,Consel_ser_A) ,gc(full ) . 

to  tal  _consel_ser_a  (  C  3  ,  0  )  :  -  '.  . 

total_consel_ser_a( CAIL] ,Consel_ser_A) :- 

total_consel_ser_a(L, Subtotal ) , 

Consel  ser_A  is  Subtotal  -t-  A. 


get_co_tax_ln_n( I ,co_tax 
CCo  tax  In  N/1 .03 ) :- 


In , CO  tax 


findal 1 (co_tax_ln,data(_,co_tax_ln, _,_,_, _,_,_,_,_ 

length(L,Co_tax_ln_N) ,gc (ful 1 ) . 
get_co_tax_ln_a( I ,co_tax_ln,ca_tax_ln_a, 
CCo_tax_ln_A/l .0] ) :- 

findal 1 ( Amount ,data(_,co_tax_ln, _,_,_,_,_, Amount , _ 
A)  , 

total_CQ_tax_ln_a( A,Co_tax_ln_A) ,gc ( ful 1 ) . 
total_co_tax_ln_a(  C:  ,0)  :-  '.  . 
total_co_tax_ln_a( CAILl , Co_tax_l n_A ) :- 

total_co_tax_ln_a(L, Sub  to  ta 1 )  , 

Co_tax_ln_A  is  Subtotal  +  A. 


get_co_tax_rel_n( I ,co_tax_rel ,co_tax_rel_n, 

CCo_tax_rel_N/l .0] ) :- 

findall (co_tax_rel ,data(_,co_tax_rel »_>_»_>_»_»_?_ 

L)  , 

length(L,Co_tax_rel_N) ,gc(ful 1 ) . 

get_co_tax_rel_a( I ,co_tax_rel ,co_tax_rel_aj 

[Co_tax_rel_A/l .0] ) :- 

find a  1 1 ( Amount ,data(_»co_tax_rel >_»_»_>_»_i Amount , 

>A)  , 

total_co_tax_rel_a(A,Co_tax_rel_A) ,gc(full ) . 

total_co_tax_rel_a( C : ,0) :-  !. 

total_co_tax_rel_a( CA!L] ,Co_tax_rel_A) :- 

total _co_tax_rel_a(L, Sub  to  ta 1 ) , 

Co_tax_rel_A  is  Subtotal  +  A. 

get_pb_cut_of f _val ( I ,  cut_off, 
pb_cut_off_val , CPB_CUT_QFF_VAL/1 .O: ) :- 
PB_CUT_OFF_VAL  is  ^00 , gc ( f u 1 1 ) . 

Qet_ex tremely_h igh_cut_of f _val ( I ,  cut_off , 
ex tremel y_h igh_cut_of f _val  > 

cextremely_high_cut_off_v;al/i  .0]  )  :- 

EXTREMELY_HIGH_CUT_QFF_VAL  is  200 , gc ( f u 1 1 ) . 

qet_very_high_cut_off_val ( I ,  cut_off, 
very_h igh_cut_of f _val  , 
CVERY_HIGH_CUT_0FF_VAL/1 .0] ) :- 
VERY_HIGH_CUT_QFF_VAL  is  1 70 , gc ( f u 1 1 ) . 

get_h igh_cut_of f _val ( I ,  cut_off,  h igh_cut_of f _va 1 , 
[HIGH_CUT_GFF_VAL/1 .0] ) :- 

HIGH_CUT_QFF_VAL  is  1 20 , gc ( f u 1 1 ) . 

get_moderatel y_h igh_cut_of f _val ( I ,  cut_off , 


moderately_h igh_cut_of f _val , 
LMQDERATELY_HIGH_CUT_QFF_VAL/1 .03 ) :- 

MQDERATELY_HIGH_CUT_OFF_VAL  is  1 00 , gc ( f u 1 1 ) . 

get_low_cut_of f _val ( I , 

cut_of  f  ,  low_cut_off_val  ,  C  LOUJ_CUT_QFF_VAL/ 1  .0]  )  :- 

LOW_CUT_QFF_VAL     is    aO,gc(full). 

get_very_low_cut_off_val ( I , 
cut_of f , very_low_cut_of f _va 1 , 
C"v'ERY_LOW_CUT_OFF_VAL/l  .0]  )  :- 

VERY_LOW_CUT_QFF_VAL     is     10,gc(full). 

get_ex tremely_low_cut_of f _val ( I ,     cut_of f , 
ex tremely_low_cut_of f _val , 
CEXTREMELY_L0W_CUT_0FF_VAL/1 .0] ) :- 
EXTREMELY_LOW_CUT_DFF_VAL     is    ^0,gc(full). 


/♦    CRD13.RUL        (RULES)        */ 

/♦   This  section  of  code  contains  synonyms  and  90  if- 
then  rules  */ 

report ( cone luded  of  conclusion)  =  $The  person  is  :$. 
order ( cone luded  of  conclusion)  =  Cr,q]. 
precalc ( personal )  =  Cssn , z ip , m_status] . 
set ( customer_prof i le_inf o  of  perserec)  = 

customer_prof i le_i  nf o . 
set ( superpayer_inf o  of  perserec)  =  superpayer_inf o . 
se t ( bankrup t_inf o  of  perserec)  =  bankrup t_ i nf o . 
set ( weight_p t_inf o  of  perserec)  =  wei gh t_p t_ inf o . 
set ( cut_off_ info  of  perserec)  =  cut _of f _ i nf o . 

name ( we igh t _p t _ i nf Q  of  perserec)  =  ignore, 
name ( cut _off_ i nfo  of  perserec)  =  ignore. 

quest  ion ( pb_cut_aff_va 1  of  cut_off )  = 

get_pb_cut_of f _val . 

quest  ion ( ex tremel y_h igh_cut_off_val  of  cut_off )  = 

get_ex tremely_h igh_cut_of f _va 1 . 
quest  ion ( very_h igh_cut_off_va 1  of  cut_off )  = 

get_very_h igh_cut_of f _va 1 . 
quest  ion ( h igh_cut_off_val  of  cut_off)  = 

get_h igh_cut_of f _va 1 . 
quest  ion ( moderatel y_h igh_cut_off_val  of  cut_off )  = 

get _moderately_h  igh_cut_off_val . 
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quest  ion ( low_cut_off_va 1  of  cut_off)  = 

get_low_cut_of f _val . 
quest  ion ( very_low_cut_off_val  of  cut_off)  = 

get_very_low_cut_of f _va 1 . 
quest  ion ( ex treme ly_ low_cut_off_va 1  of  cut_Qff )  = 

get_ex tremel y_ low_cut_of f _va 1 . 

set ( conclusion_inf o  of  perserec)  =   cone lus ion_ i nf o . 
set ( personal _info  of  customer_prof i le_ i nf o  of 
perserec ) = 
persona  1 _i  nf o , 
set(trw_info  of  customer_prof i le_ inf o  of  perserec)  = 
trw_inf o . 
set (del i nq_inf o  of  trw_info  of  customer_prof i le_ i nf o  of 

perserec)  =  del i nq_ i nf o . 
set ( d_60_inf o  of  delinq_info  of  trw_info  of 

customer_prof i le_inf o  of  perserec)  =  d_60_info. 
set ( d_90_i nf o  of  delinq_info  of  trw_info  of 

customer_prof i le_inf o  of  perserec)  =  d_90_info. 
set ( d_lEO_i nf o  of  delinq_info  of  trw_info  of 

customer_prof i le_inf o  of  perserec)  =  d_120_info, 
set ( d_150_inf o  of  delinq_info  of  trw_info  of 

customer _prQf i 1 e_ inf o  of  perserec)  =  d_150_info. 
set ( d_lSO_inf o  of  delinq_info  of  trw_info  of 

customer_prof i le_ inf o  of  perserec)  =  d_lSO_info. 
set ( cur_was_inf o  of  trw_info  of  customer_prof i le_i nf o 
of 
perserec)  =  cur_was_i nf o . 
set ( c_w_60_i nf o  of  cur_was_info  of  trw_info  of 

customer  _profi  1  e_  i  nfo  of  perserec)  =  c_i/v/_(t)0_  i  nf  o  . 
set ( c_w_90_ inf o  of  cur_was_info  of  trw_info  of 

customer  _prof  i  le_info  of  perserec)  =  c_iai_90_  i  nf  o  . 
set ( c_w_120_inf o  of  cur_was_info  of  trw_info  of 

customer _profi le_info  of  perserec)  =  c_w_l E0_ i nf o . 
set ( c_w_ 150_ i nf o  of  cur_was_info  of  trw_info  of 

customer_prof i le_i nf o  of  perserec)  =  c_w_ 1 50_ i nf o . 
set ( c_w_ 180_ i nf o  of  cur_was_info  of  trw_info  of 

customer_prof i le_ i nf o  of  perserec)  =  c_w_ 1 aO_ i nf o . 
set  (  pdbyd  1  r  _inf  o  of  trvvj_info  of 

customer _prof i le_ 1 nfo  of  perserec)  =  pdbyd lr_ i nfo . 
set ( CO  1 1 _acc t _ i nf o  of  trw_info  of  customer _prof i 1 e_ i nfo 
of 

perserec)=  co  1  1  _acc t _inf o . 
set ( charge_of f _ i nf o  of  trw_info  of 
customer_prof i le_inf o  of 

perserec )=charge_off_info . 
set ( pd _co 1 l_ac_inf o  of  trw_info  of 
customer_prof i le_i nf o  of 

perserec)  =  pd_co 1 1 _ac_ i nfo . 
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set ( inquiry_inf o  of  trw_info  of  customer_prof i 1 e_ i nf o 
of 
perserec)  =  i nqu i ry_i nf o . 
set ( cone lus ion_ i nfo  of  perserec)  =  cone lus ion_ info . 
set ( f orec losure_inf o  of  trw_info  of 
customer_prof i le_inf o  of 
perserec)  =  f orec 1 osure_i nfo . 
set ( judgment_i nf o  of  trw_info  of  customer_prof i 1 e_ i nf o 
of 
perserec)  =  judgment _ i nfo . 
set C repo_ i nf o  of  trw_info  of  customer_prof i 1 e_ i nf o  of 

perserec)  =  repo_info. 
set ( insc 1 aim_i nf o  of  trw_info  of 

castomer_prof i le_ i nf o  of  perserec)  = 
insc 1  a  im_inf o . 

name ( insc 1 aim_info  of  trw)  =  ignore. 

quest  ion (  1 nsc 1  a  1 m_n  of  insclaim)  =  get_ i nsc 1  a i m_n. 

quest  ion (  i nsc la im_a  of  insclaim)  =  get _ i nsc 1 ai m_a . 


set ( notpdaa_ i nf o  of  trw_info  of 

customer_prof 1 le_i nf o  of  perserec)  =  no tpdaa_ i nf o . 
name ( no tpdaa_ info  of  trw)  =  ignore- 
quest ion ( notpdaa_n  of  notpdaa)  =  get_no tpdaa_n . 
quest  ion ( notpdaa_a  of  notpdaa)  =  get _no tpdaa_a . 

set ( vo lnrepo_ info  of  trw_info  o^ 

customer_prof i le_ 1 nf o  of  perserec)  = 
vo 1 nrepo_inf o . 

name (vo lnrepo_ i nfo  of  trw)  =  ignore. 

quest  ion ( vo 1 nrepo_n  of  volnrepo)  =  get _vo 1 nrepo_n . 
quest  ion ( vo lnrepo_a  of  volnrepo)  =  get _vo 1 nrepo_a . 


set ( curwaspd_ i nf o  of  trw_info  of    cus tomer_prof i 1 e_ i nf o 

of 

perserec)  =  cur waspd_ i nf o . 
se  t  (  ciAiDd_  i  nf  o  of  cur  iAiaspd_  i  nf  o  of  trv\i_info  of 

customer_prof i le_ 1 nf o  of  perserec)  =  cwpd_infG. 
set  '  cwDd_30_i  nf  o  of  cur  i«ja5pd_  i  nf  o  of  trw_info  of 

customer _prof 1 le_ i nfo  of  perserec)  =  c wpd_30_ i nf o . 


set ( cwpd_30by2_ 1 nf o  of  cur waspd_ i nf o  of  trw_info  of 

customer_prof i le_ 1 nf o  of  perserec)  = 
cwpd_30by2_inf o . 
set (cwpd_30by3_inf o  of  curwa5pd_ i nf o  of  trw_info  of 


custamer_prQf i 1 e_ i nf o  of  perserec)  = 
cwpd_30by3_inf o . 
set  ( cwpd_30by'^_inf  o  of  curwaspd_i  nf  o  of  trw_info  of 

customer_prof i le_inf o  of  perserec)  = 
cwpd_30by<^_  i  nf  o  . 

set ( cwpd_30by5_inf o  of  curwaspd_i nf o  of  trw_info  of 
customer_prof i le_ inf o  of  perserec)  =  cwpd_30by5_ inf o . 
set ( cwpd_30by6_ i nf o  of  curwaspd _ i nf o  of  trw_info  of 
customer_prQf i le_inf o  of  perserec)  =  cwpd_30by6_ i nf o . 

set ( accpd_i nf o  of  trw_info  of  customer_prof i le_ i nf o  of 

perserec)  =  accpd_info. 

set  (  accpd_30_  i  nf  o  of  accpd_info  of  trug_info  of 

customer_prof i le_inf o  of  perserec)  = 
accpd_30_inf o . 


set ( accpd_30by2_i nf o  of  accpd_info  of 
customer_prof i le_inf o  of  perserec)  = 
set ( accpd_30by3_i nf o  of  accpdinfo  of 
customer _prof i le_ inf o  of  perserec)  = 
set ( accpd_30by^_ inf o  of  accpd_info  of 
customer _prof i le_i nfo  of  perserec)  = 
set ( accpd_30by5_i nf o  of  accpd_info  of 
customer_prof i le_inf o  of  perserec)  = 
set ( accpd_30by6_inf o  of  accpd_info  of 
castomer_prof i le_inf o  of  perserec)  = 
set (pacc_wpd_inf o  of  trw_info  of  cust 

of 

perserec)  =  pacc_wpd_inf o . 
set ( pacc_wpd_30_inf o  of  pacc_wpd_ i nf o 

tomer_prof i le_inf o  of  perserec)  = 

pacc_wpd_30by23_inf o  of  pacc_wpd_ 

of 
customer_prof i le_inf o  of  perserec 
pd_30bya3_info . 

pacc_wpd_30by^_inf o    of    pacc_i/<jpd_i 

customer_prof i le_ i nf o  of  perserec 
pd_30by^_info . 

pacc_wpd_30by5_ i nf o  of  pacc_wpd_i 

cu5tomer_prof i le_inf o  of  perserec 

_wpd_30by5_i  nf o . 

pacc_wpd_30by6_ i nf o  of  pacc_wpd_i 

customer_prof i le_i nf o  of  perserec 

_wpd_30by6_info . 


trw  info  of 


accpd 


accpd 


30by2_info . 


cus 

set  ( 


pace 
set  ( 


pace 
set  ( 


pace 
set  ( 


pace 


trw_info  of 
accpd_30by3_inf o . 

info  of 

acepd_30by^_info. 

info  of 

30by5_  i  nfo . 

trw_info  of 

accpd_30by6_ i nf o . 

omer_prof i le_info 


of  trw_info  of 
paec_wpd_30_info. 
info  of  trw  info 


nfo  of  trw_info  of 
)  = 


nfo  of  trw  info  of 


nfo  of  trw_info  of 


set ( su i t_ i nf o  of  trw_info  of 

customer_prof i le_ i nf o  of  perserec)  =  suit_info. 
name ( sui t_inf o  of  trw)  =  ignore, 
quest  ion ( sui t_n  of  suit)  =  get_suit_n. 
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quest  ion ( sui t_a  of  suit)  =  get_suit_a. 


name ( customer_prof i le_inf o  of  perserec)  =  ignore, 
name ( suDeroayer_ info  of  perserec)  =  ignore, 
name ( dankrup t_ i nf o  of  perserec)  =  ignore, 
name ( cone lusion_info  of  perserec)  =  ignore, 
name ( personal _ info  of  customer_prof i le )  =  ignore. 
name ( trw_inf o  of  customer_prof i le )  =  ignore, 
name ( i nqu i ry_i nf o  of  trw)  =  ignore, 
name ( del i nq_ info  of  trw)  =  ignore. 

name ( d_60_inf o  of  delinq)  =  ignore. 
name ( d_90_ i nf o  of  delinq)  =  ignore. 
name ( d_lSO_inf o  of  delinq)  =  ignore. 
name ( d_150_ info  of  delinq)  =  ignore, 
name ( d_ ldO_inf o  of  delinq)  =  ignore. 

name ( cur_was_ i nf o  of  trw)  =  ignore, 
name ( c_w_60_ i nf o  of  cur_was)  =  ignore. 
name ( c_w_90_i nf o  of  cur_was)  =  ignore, 
name ( c_w_120_inf o  of  cur_was)  =  ignore, 
name ( c_w_l 50_inf o  of  cur_was)  =  ignore, 
name  c  c_i/M_lSO_  info  of  cur_iAia5)  =  ignore. 

name ( CO  1 1 _acc t_ i nf o  of  trw)  =  ignore, 
name ( charge_off_ info  of  trw)  =  ignore, 
name ( pd_co 1 1 _ac_inf o  of  trw)  =  ignore, 
name ( f orec losure_inf o  of  trw)  =  ignore, 
name ( judgment_ i nf o  of  trw)  =  ignore, 
name ( repo_i nf o  of  trw)  =  ignore, 
name ( pdbyd 1 r_inf o  of  trw)  =  ignore, 
name ( curwaspd_inf o  of  trw)  =  ignore, 
name ( cwDd_i nf o  of  curwaspd )  =  ignore, 
name c cwpd_30_ info  of  curwaspd )  =  ignore. 


name ( cwpd_30by2_i nf o  of  curwaspd )  =  ignore 

name ( cwpd_30by3_inf o  of  curwaspd)  =  ignore 

name( cwpd_30by^_i nf o  of  curwaspd )  =  ignore 

name  (  CiAipd_30by5_  info  of  curwaspd  )  =  ignore 

name ( cwpd_30by6_i nf o  of  curwaspd)  =  ignore 


quest  ion ( cwpd_n  of  cwpd )  =  get_cwpd_n. 

Quest  ion ( cwpd_a  of  cwpd )  =  get_cwpd_a. 

quest  ion ( cwpd_30_n  of  cwpd_30)  =  get _cwpd_30_n . 

quest  ion ( cwpd_30_a  of  cwpd_30)  =  get _cwpd_30_a . 

quest ion( cwpd_30byE_n  of  cwpd_30by2)  = 

get_cwpd_30by2_n . 


quest  ion ( cwpd_30by2_a  of  cwpd_30byS)  = 

get _cwpd_30by2_a . 

quest  ion ( cwpd_30by3_n  of  cwpd_30by3)  = 

get_cwpd_30by3_n . 

quest ion(cwpd_30by3_a  of  cwpd_30by3)  = 

get_cwpd_30by3_a. 

quest  ion ( cwpd_30by^_n  of  cwpd_30by^)  = 

get  _cwpd_30by'^_n . 

quest  ion  (  cwpd_30by'^_a  of  cwpd_30by<^)  = 

get _cwpd_30by^_a  . 

quest  ion  (  cwpd_30byt5_n  of  cwpd_30by5)  = 

get_cwpd_30by5_n . 

quest  ion ( cwpd_30by5_a  of  cwpd_30by5)  = 

get_cwpd_30by5_a . 

quest  ion ( cwpd_30by6_n  of  cwpd_30by6)  = 

get_cwpd_30by6_n . 

quest  ion ( cwpd_30by6_a  of  cwpd_30by6)  = 

get_cwpd_30by6_a . 

questionCssn  of  personal)  =  get_ssn. 

quest  ion ( m_status  of  personal)  =  get_m_status . 

question(zip  of  personal)  =  get_zip. 

quest ion( CO  1 l_acct_n  of  coll_acct)  =  get_co 1 1 _acc t _n . 

quest  ion ( CO  1 1 _acct_a  of  coll_acct)  =  get_co 1 1 _acc t _a . 


_60_n  of  c_w_60)  =  get _c _w_60_n . 

_60_a  of  c_w_60)  =  get_c_w_60_a . 

_90_n  of  c_w_90)  =  get _c_w_90_n . 

_90_a  of  c_w_90)  =  get _c_w_90_a . 
quest ion(c_w_120_n  of  c_w_lEO)  =  get_c_w_120_n 
quest ion(c_w_120_a  of  c_w_120)  =  get_c_w_120_a 
quest ion( c_w_150_n  of  c_w_150)  =  get_c_w_ 1 50_n 
quest  ion ( c_w_ 1 50_a  of  c_w_150)  =  get_c_w_ 1 50_a 
quest  ion ( c_w_iaO_n  of  c_w_180)  =  get_c_w_ 1 80_n 
quest ion(c_w_iaO_a  of  c_w_180)  =  get_c_w_ 180_a 


quest  ion ( c_ 
quest  ion ( c_ 
quest  ion ( c_ 
quest  ion ( c_ 


quest 
quest 
quest 
quest 
quest 
quest 
quest 
quest 
quest 
quest 


ion  (  d 
i  on  (  d 
i  on  (  d 
ion  (  d 
i  o  n  (  d 
ion  ( d 
ion  (  d 
i  on  ( d 
ion(  d 
i  on  (  d 


>0_n  of  d_60)  =  get_d_60_n. 
_60_a  of  d_60)  =  get_d_60_a. 
_90_n  of  d_90)  =  get_d_90_n. 
_90_a  of  d_90)  =  get_d_90_a. 
.120_n  of  d_120)  =  get_d_120_n 
_120_a  of  d_120)  =  get_d_120_a 
.150_n  of  d_150)  =  get_d_150_n 
_150_a  of  d_150)  =  get_d_150_a 
.180_n  of  d_180)  =  get_d_180_n 
_180_a  of  d_iaO)  =  get_d_180_a 


name ( accpd_i nf o  of  trw)  =  ignore. 


name ( accpd_30_ info  of  accpd )  =  ignore, 
name ( accpd_30by2_inf o  of  accpd)  =  ignore, 
name ( accpd_30by3_ info  of  accpd)  =  ignore, 
name  (  accpd_30bY'4-_i  nf  o  of  accpd)  =  ignore, 
name ( accpd_30by5_ info  of  accpd)  =  ignore, 
name ( accpd_30by6_ 1 nf o  of  accpd)  =  ignore. 

quest  ion ( accpd_30_n  of  accpd_30)  =  get_accpd_30_n . 

quest  ion ( accpd_30_a  of  accpd_30)  =  get_accpd_30_a . 

quest ion( accpd_30by2_n  of  accpd_30by2)  = 

qet_accpd_30by2_n. 

quest ion( accpd_30by2_a  of  accpd_30by2)  = 

qet_accpd_30by2_a. 

quest  ion ( accpd_30by3_n  of  accpd_30by3)  = 

get_accpd_30by3_n. 

quest i on ( accpd_30by3_a  of  accpd_30by3)  = 

get_accpd_30by3_a . 

quest  ion  (  accpd_30by'4-_n  of  accpd_30by'^  )  = 

get_accpd_30by^_n. 

quest  ion ( accpd_30by^_a  of  accpd_30by^)  = 

get_accpd_30by^_a. 

quest  ion ( accpd_30by5_n  of  accpd_30by5)  = 

get_accpd_30by5_n . 

quest  ion ( accpd_30by5_a  of  accpd_30by5)  = 

get_accpd_30by5_a. 

quest  ion ( accpd_30by6_n  of  accpd_30by6)  = 

get_accpd_30by6_n. 

quest  ion ( accpd_30by6_a  of  accpd_30by6)  = 

get_accpd_30by6_a. 

name  (■pacc_wpd_  info  of  trw)  =  ignore, 
name ( pacc_wpd_30_inf o  of  pacc_wpd)  =  ignore, 
name ( pacc_wpd_30by23_inf o  of  pacc_wpd)  =  ignore. 
name(  pacc_wpd_30by'^_inf  o  of  pacc_wpd)  =  ignore, 
name ( pacc_wpd_30by5_ info  of  pacc_wpd)  =  ignore. 
name( pacc_wpd_30by6_i nf o  of  pacc_wpd)  =  ignore. 

quest  ion ( pacc_wpd_30_n  of  pacc_wpd_30)  = 

get_pacc_wpd_30_n. 

quest  ion ( pacc_wpd_30_a  of  pacc_wpd_30)  = 

qet_pacc_wpd_30_a. 

quest  ion ( pacc_wpd_30by23_n  of  pacc_wpd_30by23 )  = 

get_pacc_wpd_30by23_n . 
quest ion( pacc_wpd_30by23_a  of  pacc_wpd_30by23 )  = 

get_pacc_wpd_30by23_a. 
quest  ion(  pacc_wpd_30by^_n  of  pacc_wpd_30by'^  )  = 

get_pacc_wpd_30by'4_n. 
quest  ion ( pacc_wpd_30by^_a  of  pace _wpd_30by^ )  = 


get_pacc_wpd_30byA-_a  . 
quest  ion ( pacc_wpd_30by5_n  of  pacc_wpd_30by5 )  = 

get_pacc_wpd_30by5_n . 
quest ion( pacc_wpd_30by5_a  of  pacc_wpd_30by5 )  = 

get_pacc_wpd_30by5_a . 
quest  ion ( pacc_wpd_30by6_n  of  pacc_wpd_30by6 )  = 
get_pacc_wpd_30by6_n . 

quest  ion ( pacc_wpd_30by6_a  of  pacc_wpd_30by6 )  = 
get_pacc_wpd_30by6_a . 


quest  ion ( bk_va Is  of  trw)  =  get_bk_vals. 

quest  ion ( forec losure_weigh t_va 1  of  foreclosure)  = 

get_fclos_vals. 

quest  ion ( judgment _weight_val  of  judgment)  = 

get_judgment_vals. 
quest  ion ( repo_weight_va 1  of  repo )  =  get_repo_va 1 s . 

quest  ion ( charge_off_n  of  charge_off)  = 

get_charge_off_n. 

quest  ion ( charge_off_a  of  charge_off)  = 

get_charge_off_a. 


quest ion( pd_co 1 1 _ac_n  of  pd_coll_ac)  = 
get_pd_col l_ac_n. 

quest  ion ( pd_co 1 1 _ac_a  of  pd_coll_ac)  = 
get_pd_col l_ac_a. 

quest ion( no_of_inq  of  inquiry)  =  check_recent _inq . 
quest  ion ( curr_acct_n  of  superpayer )  =  get_curr_acc t_n . 

quest ion( pdbyd lr_n  of  pdbydlr)  =  get_pdbyd lr_n . 
quest  ion ( pdbyd lr_a  of  pdbydlr)  =  get_pdbyd 1 r_a . 

set ( pacc_wdel _inf o  of  trw_info  of  customer_prof i 1 e_ i nf o 

of 

perserec )  =  pacc_wdel _ i nf o . 
set ( pacc_wdel60_inf o  of  pacc_wdel _ i nf o  of  trw_info  of 

customer_prof i le_ 1 nf o  of    perserec)  = 

pacc_wdel60_ inf o . 
set ( pacc_wde 190_ i nf o  of  pacc_wde 1 _ i nf o  of  trw_info  of 
customerjprof i le_inf o  of  perserec)  = 

pacc_wdel 90_  i  nf o . 
set  (  pacc_(A/del  120_  info  of  pacc_wde  1  _  i  nf  o  of  trw_info  of 
customer_prof i le_inf o  of  perserec)  =  pacc_wde 1 120_ i nf o . 
set ( pacc_wdel 150_inf o  of  pacc_wde 1 _ i nf o  of  trw_info  of 
customer_prof i le_inf o  of  perserec)  =  pacc_wdel 150_ i nf o . 
set (pacc_wdel iao_inf o  of  pacc_wdel _inf o  of  trw_info  of 
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customer_prof i le_inf o  of  perserec )  =  pacc_wdel lSO_inf o . 

name ( pacc_wde 1 _ i nf o  of  trw)  =  ignore. 
name(  pacc_wdel(f30_inf  o  of  pacc_wdel)  =  ignore, 
name ( pacc_wdel 90_ i nf o  of  pacc_wdel)  =  ignore, 
name ( pacc_wdel 120_ info  of  pacc_wdel)  =  ignore, 
name ( pacc_wdel 150_inf o  of  pacc_wdel)  =  ignore, 
name ( pacc_wde 1 180_i nf o  of  pacc_wdel)  =  ignore. 


quest  ion ( pacc_wdel60_n  of  pacc_wdel60)  = 

get_pacc_wdel60_n. 

quest  ion ( pacc_wde 1 60_a  of  pacc_wdel60)  = 

get_pacc_wdel60_a. 

quest  ion  (  pacc_wdel90_n  of  pacc_iMdel90  )  = 

get_pacc_wdel90_n . 

quest  ion ( pacc_wdel90_a  of  pacc_wdel90)  = 

get_pacc_wdel 90_a . 

quest  ion ( pacc_wde 1 lSO_n  of  pacc_wdel ISO )  = 

get_pacc_wdel 120_n . 

quest  ion ( pacc_wdel 120_a  of  pacc_wdel 120 )  = 

get _pacc_wdel 120_a 

quest  ion (pacc_wd el 

get _pacc_wdel 150_n 

quest  ion(pacc_wdel 

get_pacc _wde 1 150_a 

quest xon(pacc_wd el 

get_pacc_wdel 180_n 

quest  ion( pacc_wdel 

get_pacc_wdel ia0_a 


50_n  of  pacc_wdel 150)  = 

50_a  of  pacc_wdel 150)  = 

ia0_n  of  pacc_wdel 180)  = 

ia0_a  of  pacc_wdel ISO)  = 


set  (  pd  _repo_  i  nf  o  of  triAi_info  of  cus  tomer_prQf  i  1  e_  i  nf  o 

or 

perserec)  =  pd_repo_ i nf o . 

name C pd_repo_ i nf o  of  trw)  =  ignore. 

quest i on ( pd_repo_n  of  pd_repo )  =  get_pd_repQ_n . 

quest  ion ( pd_repo_a  of  pd_repo)  =  get _pd_repo_a . 

set  (  pd  _chg_of  f  _  i  nf  o  of  tri/«j_info  of 

cus tomer _prof 1 1 e_ 1 nf o  of 

perserec)  =  pd_chg_of f _ i nf o . 

name ( pd_chg_of f _inf o  of  trw)  =  ignore. 

quest  ion ( pd_chg_off_n  of  pd_chg_off )  = 

get_pd_chg_off_n. 

quest i on ( pd_chg_off_a  of  pd_chg_off )  = 

get_pd_chg_off_a. 


set  (  pd__fQrec  lo_  info  of  tr 
custQmer_prof i le_ i nf o  of 


info  of 


perserec)  =  pd_f orec lo_ i nf o . 

name ( pd_f orec lo_inf Q  of  trw)  =  ignore. 

quest  ion ( pd_f orec lo_n  of  pd_foreclo)  = 

get_pd_foreclo_n. 

quest  ion ( pd_f orec lo_a  of  pd_toreclQ)  = 

get_pd_f  orec lo_a . 

set ( bk 1 iqreo_inf o  of  trw_info  of  customer_prof i le_ i nf o 

of 

perserec )  =  bk 1 iqreo_ i nf o . 

name ( bk 1 iqreo_ i nf o  of  trw)  =  ignore. 

quest  ion ( bk 1 iqreo_n  of  bkliqreo)  =  get_bk 1 iqreo_n . 

quest  ion ( bk 1 iqreo_a  of  bkliqreo)  =  get_bk 1 iqreo_a . 


set ( set t led_i nf o  of  trw_info  of  customer_prof i le_ i nf o 

of 

perserec)  =  set t led_ i nf o . 

name ( sett led_info  of  trw)  =  ignore. 

quest ion< set t led_n  of  settled)  =  get_sett led_n . 

quest  ion ( set t led_a  of  settled)  =  get_sett led_a . 


set (bk_ad j_p ln_i nf o  of  trw_info  of 

customer_prof i le_ inf o  of 

perserec)  =  bk_ad j_p 1 n_i nf o . 

name ( bk_ad j_p ln_inf o  of  trw)  =  ignore. 

quest ion( bk_ad j_p ln_n  of  bk_adj_pln)  = 

get_bk_ad  j_p ln_n . 

quest  ion ( bk_ad j_p ln_a  of  bk_adj_pln)  = 

get_bk_adj_pln_a. 


set ( scnl _nwloc_i nf o  of  trw_info  of 

customer_prof i le_ i nf o  of 

perserec)  =  scnl _nwloc_i nf o . 

name ( scnl _nw loc_i nfo  of  trw)  =  ignore. 

quest  ion ( scnl _nwloc_n  of  scnl_nwloc)  = 

get_scnl _nw 1 oc_n . 

quest i on ( sen  1 _nw loc_a  of  scnl_nwloc)  = 

get_scnl_nwloc_a. 


set ( co_now_pay_i nf o  of  trw_info  of 

customer_prof i le_inf o  of 

perserec)  =  co_now_pay_ inf o . 

name(co  now_pay_info  of  trw)  =  ignore. 

quest  ion ( co_now_pay_n  of  co_now_pay)  = 

get_co_now_pay_n . 
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quest  1  on ( co_now_pay_a  of  co_now_pay)  = 
get_co_now_pay_a. 


set ( tore_proc_ info  of  trw_info  of  cus tomer_prof i 1 e_ i nf o 

of 

perserec )  =  f ore_proc_inf o . 

name ^ Tore_proc_inf o  of  trw)  =  ignore. 

quest  ion ( fore_proc_n  of  fore_proc)  =  get_f ore_proc_n . 

quest  1  on ( fore_proc_a  of  f Qre_proc )  =  get_f ore_proc_a . 


set ( gov_c 1  a im_ 1 nf o  of  trw_info  of  customer_prof i 1 e_ i nf o 

of 

perserec )  =  gov_c 1 aim_i nf o . 

name ( gov_c laim_ info  of  trw)  =  ignore. 

quest  1  on ( gov_c la im_n  of  gov_claim)  =  get_gov_c 1  a i m_n . 

quest  1  on  I.  gov_c  1  aim_a  of  gov_claim)  =  get_go  v_c  1  a  im_a  . 


set ( c lose_np_aa_ info  of  trw_info  of 

customer_prof i le_ inf o  of 

perserec)  =  c lose_np_aa_ i nf o . 

name ( c lose_np_aa_ inf o  of  trw)  =  ignore. 

quest  ion ( c lose_np_aa_n  of  close_np_aa)  = 

get_c lose_np_aa_n . 

quest ion( c lose_np_aa_a  of  close_np_aa)  = 

get_close_np_aa_a. 

set ( scnl _i nf o  of  trw_info  of  customer_prof i 1 e_ i nf o  of 

perserec)  =  scnl_info. 

name ( sen  1 _i nfo  of  trw)  =  ignore. 

quest i on ( sen  1 _n  of  scnl)  =  get_scnl_n. 

quest  ion ( sen  1 _a  of  scnl)  =  get_scnl_a. 


set ( f ed_tax_l n_ inf o  of  trw_info  of 

customer _prof 1 1 e_ i nfo  of 

perserec;  =  f ed_ t ax _ 1 n_ i nf o . 

name ( fed_tax_ 1 n_ i nfo  of  trw)  =  ignore. 

quest  ion ( fed_tax_ 1 n_n  of  fed_tax_ln)  = 

get _f ed_tax_ 1 n_n . 

quest  ion ( fed_tax_ln_a  of  fed_tax_ln)  = 

aet  fed  tax_ln_a. 


set ^ f ed_tax_re 1 _ inf o  of  trw_ir 
cus tomer _prof 1 1 e_ i nf o  of 
oerserec)  =  f ed_ tax_re 1 _ i nf o . 


name ( fed_tax_rel _ info  of  trw)  =  ignore. 

quest  ion ( fed_tax_re 1 _n  of  f ed_tax_re 1 ) 

get_fed_tax_rel_n. 

quest ion( fed_tax_rel _a  of  fed_tax_rel) 

get_fed_tax_rel_a. 

set ( judgmt_sat_inf o  of  trw_info  of 

customer_prof i le_inf o  of 

perserec )  =  judgmt_sat_ inf o . 

name ( judgmt_sat_i nf o  of  trw)  =  ignore. 

quest  ion ( judgmt_sat_n  of  judgmt_sat)  = 

get_judgmt_sat_n. 

quest  ion (  judgmt_5at_a  of  judgmt_sat)  = 

get_judgmt_sat_a. 


set ( judg_vacat_inf o  of  trw_info  of 

customer_prof i le_inf o  of 

perserec)  =  judg_vacat_inf o . 

name ( judg_vacat_ i nf o  of  trw)  =  ignore 

quest  ion (  judg_vacat_n  of  judg_vacat) 

get_judg_vacat_n. 

quest  ion ( judg_vacat_a  of  judg_vacat) 

get_judg_vacat_a. 


set ( mech_l ien_inf o  of  trw_info  of  customer_prof i le_ i nf o 

of 

perserec)  =  mech_ 1 ien_ i nf o . 

name ( mech_l ien_inf o  of  trw)  =  ignore. 

quest  ion ( mech_l ien_n  of  mech_lien)  =  get_mech_ 1 ien_n . 

quest  ion ( mech_ 1 ien_a  of  mech_lien)  =  get_mech_ 1 ien_a . 


set ( mech_rele_inf o  of  trw_info  of  customer_prof i le_ i nf o 

of 

perserec)  =  mech_re 1 e_ i nf o . 

name ( mech_re le_ i nf o  of  trw)  =  ignore. 

quest  ion ( mech_rele_n  of  mech_rele)  =  get _mech_re le_n . 

quest  ion ( mech_rel e_a  of  mech_rele)  =  get _mech_re 1 e_a . 


set ( mn_mtg_f i 1 _ i nf o  of  trw_info  of 

customer_prof i le_ i nf o  of 

perserec)  =  mn_mtg_f i 1 _ i nf o . 

name ( mn_mtg_f i 1 _inf o  of  trw)  =  ignore. 

quest  ion ( mn_mtg_f i 1 _n  of  mn_mtq_fil)  = 

get_mn_mtg_fi l_n. 

quest  ion ( mn_mtg_f i 1 _a  of  mn_mtg_fil)  = 

get_mn_mtg_fi l_a. 
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set ( nt_respQn_ i nf o  of  trw_info  of  customer_prof i le_ i nf o 

of 

perserec )  =  nt_respon_i nf o . 

name ( nt_respon_i nf o  of  trw)  =  ignore. 

quest  ion ( nt_respon_n  of  nt_respon)  =  get_nt _respon_n . 

quest  ion ( nt_respon_a  of  nt_respon)  =  get_nt_respon_a . 


set ( 5tat_t x_ln_inf o  of  trw_info  of 

cu5tomer_prof i le_ inf o  of 

perserec)  =  stat_ t x_ 1 n_ i nf o . 

name ( 5tat_t x_l n_ i nf o  of  trw)  =  ignore. 

quest  ion ( stat_t x_l n_n  of  stat_tx_ln)  = 

get_stat_tx_ln_n. 

quest  ion ( stat_tx_l n_a  of  stat_tx_ln)  = 

get_stat_tx_ln_a. 


set ( sta_t x_re 1 _ i nf o  of  trw_info  of 

customer_prof i le_i nf o  of 

perserec)  =  sta_t x_re 1 _ inf o . 

name ( sta_tx_rel _inf o  of  trw)  =  ignore. 

quest  ion ( sta_t x_re 1 _n  of  sta_tx_rel)  = 

get_sta_tx_rel_n. 

quest i on ( sta_tx_rel _a  of  sta_tx_rel)  = 

get_sta_tx_rel_a. 


set ( sui t_d ismd_ info  of  trw_info  of 

custQmer_prof i le_ i nf o  of 

perserec)  =  su i t_d i smd_ i nf o . 

name ( su 1 t_d i smd_ inf o  of  trw)  =  ignore. 

quest  ion ( sui t_d ismd_n  of  suit_dismd)  = 

get_suit_di  smd_n . 

quest  ion ( sui t_d ismd_a  of  suit_dismd)  = 

get_suit_dismd_a. 


set ( wage_as ign_ i nf o  of  trw_info  of 

customer_prof i le_ 1 nf o  of 

perserec)  =  wage_as ign_ i nf o . 

name ( wage_as i gn_ 1 nf Q  of  trw)  =  ignore 

quest  ion ( wage_asign_n  of  wage_asign) 

get_wage_asign_n. 

quest  ion ( wage_as 1 gn_a  of  wage_asign) 

get_wage_asign_a . 


set ( wa_release_i nf o  of  trw_info  of 

customer_prof i le_ i nf o  of 

perserec)  =  wa_re lease_ i nf o . 

name ( wa_re lease_ i nf o  of  trw)  =  ignore. 

quest  ion ( wa_release_n  of  wa_release)  = 

get_wa_release_n. 

quest  ion  (  wa_re  lease_a    of    iAja_re  lease  )     = 

qet_wa_release_a. 

set  (  ref  i  nanced_  i  nf  o    of    triAj_info    of 

cu5tomer_prof i le_i nf o  of 

perserec)  =  ref inanced_ i nf o . 

name ( ref inanced_i nfo  of  trw)  =  ignore. 

quest  ion ( ref inanced_n  of  refinanced)  = 

get_ref inane ed_n . 

quest  ion ( ref inanced_a  of  refinanced)  = 

get_refinanced_a. 


set ( cr_cd_lost_i nf o  of  trw_info  of 

customer_prof i 1 e_ i nf o  of 

perserec)  =  cr_cd_ lost_ inf o . 

name( cr_cd_lost_inf o  of  trw)  =  ignore. 

quest  ion ( cr_cd_lost_n  of  cr_cd_lost)  = 

get_cr_cd_lost_n. 

quest  ion ( cr_cd_ lost_a  of  cr_cd_lost)  = 

qet  cr    cd  lost  a. 


set ( c los_inac_inf o  of  trw_info  of  customer_prof i le_ i nf o 

of 

perserec)  =  c los_inac_inf o . 

name ( c los_inac_inf o  of  trw)  =  ignore. 

quest  ion ( c los_inac_n  of  clos_inac)  =  get_c los_i nac_n . 

quest ion( c los_inac_a  of  clos_inac)  =  get_c los_ i nac_a . 


se t ( transf ered_i nf o  of  trw_info  of 

customer_prof i le_ i nf o  of 

perserec)  =  t ransf ered_ i nf o . 

name ( transfered_ i nfo  of  trw)  =  ignore 

quest  ion ( transfered_n  of  transfered) 

get _ transfer ed_n . 

quest  ion ( tran5fered_a  of  transfered) 

get_ transfer ed_a . 


set ( too_new_r t_ i nf o  of  tr^ 
customer _prof i le_i nfo  of 


perserec)  =  too_new_r t_ i nf o . 

name ( too_new_r t_inf o  of  trw)  =  ignore. 

quest  ion ( too_new_rt_n  of  too_new_rt)  = 

ge t_too_new_r  t_n . 

quest  ion ( too_new_r t_a  of  too_new_rt)  = 

get_too_new_r t_a . 


set ( paid_sat i s_inf o  of  trw_info  of 

custoiner_prof  i  le_inf  o    of 

perserec)  =  pa i d_sat i s_ i nf o . 

name ( pa id_sat i s_i nf o  of  trw)  =  ignore. 

quest  ion ( paid_sat is_n  of  paid_satis)  = 

get_paid_satis_n, 

quest  ion ( pa id_sat i s_a  of  paid_5atis)  = 

get_paid_satis_a. 


set ( pa id_acc t_ i nf o  of  trw_info  of  customer _prof i le_ i nfo 

of 

perserec)  =  paid_acc t_inf o . 

name ( pa id_acc t _ i nf o  of  trw)  =  ignore. 

quest  ion ( paid_acc t_n  of  paid_acct)  =  get_pa id_acc t_n . 

quest  ion ( paid_acct_a  of  paid_acct)  =  get_paid_acc t_a . 


set ( deceased_ i nf o  of  trw_info  of  customer_prof i 1 e_ i nf o 

of 

perserec)  =  deceased_i nf o . 

name ( deceased_ i nfo  of  trw)  =  ignore. 

quest  ion ( deceased_n  of  deceased)  =  get_deceased_n . 

quest  ion ( deceased_a  of  deceased)  =  get_deceased_a . 

set ( cr_l n_c los_ info  of  trw_info  of 

customer_prof i 1 e_ i nf o  of 

perserec)  =  cr_ 1 n_c los_ i nf o . 

name ( cr_ ln_c los_ info  of  trw)  =  ignore. 

quest  ion ( cr_ 1 n_c 1 os_n  of  cr_ln_clos)  = 

get_cr_ln_clos_n. 

quest  ion ( cr_ 1 n_c los_a  of  cr_ln_clos)  = 

aet  cr  1 n  c los_a . 


set ( r sdmd_repQ_ i nf o  of  trw_info  of 

customer _prof i le_ i nfo  of 

perserec)  =  r edmd_r epo_ i nf o . 

name ( redmd_repo_i nfo  of  trw)  =  ignore. 

quest  1  on ( redmd_repo_n  of  redmd_repo )  = 

get_redmd_repo_n. 
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quest  ion ( redmd_repo_a    of    redmd_repo )     = 
get    redmd    repo_a. 


set  (  cur_was_co  1  _  info    of    triAj_info    of 

customer _prof i le_i nfo  of 

perserec)  =  cur_was_co 1 _ i nf o . 

name ( cur_was_co 1 _i nfo  of  trw)  =  ignore. 

quest  ion ( cur_was_co 1 _n  of  cur_was_col) 

qet_cur_was_col_n. 

quest  ion  (  cur_iAjas_co  1  _a    of    cur_iAjas_col) 

qet_cur_was_col_a. 

set ( cr_ 1 n_rnst_info  of  trw_info  of 

customer_prof i le_i nf o  of 

perserec)  =  cr_l n_rnst_ inf o . 

name< cr_ln_rnst_inf o  of  trw)  =  ignore. 

quest  ion ( cr_ln_rnst_n  of  cr_ln_rnst)  = 

get_cr_ln_rnst_n . 

quest  ion ( cr_ln_rnst_a  of  cr_ln_rnst)  = 

aet  cr     In  rnst  a. 


set ( cur_was_f or_ i nf o  of  trw_info  of 

customer_prof i le_inf o  of 

perserec)  =  cur_was_f or_ i nf o . 

name( cur_was_f or_i nf o  of  trw)  =  ignore. 

quest  ion ( cur_was_for_n  of  cur_was_for )  = 

get_cur_was_f or_n . 

quest  ion ( cur_was_for_a  of  cur_was_for)  = 

get_cur_was_for_a. 

set ( pd_no t_aa_ i nf o  of  trw_info  of  customer_prof i 1 e_ i nf o 

of 

perserec)  =  pd_no t_aa_ i nf o . 

name ( pd_not_aa_i nfo  of  trw)  =  ignore. 

quest  ion ( pd_not_aa_n  of  pd_not_aa)  =  get _pd_no t _aa_n . 

quest  ion ( pd_no t_aa_a  of  pd_not_aa)  =  get _pd_no t _aa_a . 


set(city_tx_ln_info  of  trw_infQ  of 

customer _pr of i 1 e_ info  of 

perserec)  =  c i ty_t x_ 1 n_ i nf o . 

name ( c i ty_tx_ ln_ i nfo  of  trw)  =  ignore. 

quest  ion ( c i ty_tx_ ln_n  of  city_tx_ln)  = 

get_city_tx_ln_n. 

quest  ion ( c i ty_tx_l n_a  of  city_tx_ln)  = 

get_city_tx_ln_a. 


set ( c i ty_t x_rel _inf o  of  trw_infa  of 

customer_prof i le_inf o  of 

perserec)  =  c i ty_t x_rel _i nf o . 

name ( c i ty_t x_rel_i nf o  of  trw)  =  ignore. 

quest ion(c i ty_tx_rel_n  of  city_tx_rel)  = 

get_city_tx_rel_n. 

quest ion(city_tx_rel_a  of  city_tx_rel)  = 

get_city_tx_rel_a. 

set c consel_5er_inf o  of  trw_info  of 

customer_prof i le_inf o  of 

perserec)  =  consel _ser_ i nf o . 

name ( consei _ser_inf o  of  trw)  =  ignore. 

quest  ion ( consel _5er_n  of  consel_5er)  = 

get_consel _ser_n . 

quest  ion ( consel _ser_a  of  consel_ser)  = 

qet_consel _ser_a - 


set ( co_tax_ ln_inf o  of  trw_info  of  customer_prof i 1 e_ i nf o 

of 

perserec)  =  co_tax_l n_i nf o . 

name ( co_tax_ 1 n_ i nf o  of  trw)  =  ignore. 

quest  ion ( co_tax_ 1 n_n  of  co_tax_ln)  =  get_co_tax_ 1 n_n . 

quest  ion ( co_tax_ 1 n_a  of  co_tax_ln)  =  get _co_tax _ 1 n_a . 


set ( CQ_tax_rel _ i nf o  of  trw_info  of 

customer_prof i le_ i nf o  of 

perserec)  =  co_tax_rel_i nf o . 

name ( co_tax_rel _inf o  of  trw)  =  ignore. 

quest  ion ( co_tax_rel_n  of  co_tax_rel)  = 

get_co_tax_rel_n. 

quest  ion ( co_tax_re I _a  of  co_tax_rel)  = 

get_co_tax_rel_a. 

synonym ( cone luded ) =  $  the  conclusion  $. 

synonym( cone lusion ) =  $  the  current  case  S. 

synonym( weigh t_p t ) =S  the  current  case  $. 

synonymCoveral l_weight_val )=5overal 1  calculated 

we igh  t$ . 

synonym ( weight_pt_i nfo ) =$  current  case's  total 

weights* . 

synonym ( weight_pt_va 1 )  =  $above  weight*. 

synonym( cut_of f )=Sthe  range  0-200  that  we  use*. 

synonym( cut_of f _inf o ) =Sdetermined  cut  off  values*. 

synonym ( potent ial_bankrupt )=*pot en tial  bankrupt*. 

synonym ( pb_cut_off_va 1 ) =*potent 1 al  bankrupt  cut  off 

value*. 


synonym( very_cri t ical_cut_of f _val )=Svery  critical  cut 
off  value*. 

synonym ( cr i t ical_cut_off_va 1 ) =$cr i t ical  cut  off  value*. 

synonym ( ser i ous_cut_off_va 1 ) =$ser i ous  cut  off  value*. 

synonym ( very_poor_cut_of f_va 1 ) =$very  poor  cut  off 

value* . 

synonym ( poor_cut_Qff_va 1 ) =*poor  cut  off  value*. 

synonym ( sat isfac tory_cut_off_va 1 ) =*sat i sfactory  cut  off 

value* . 

synonym ( normal_cut_off _val ) =*normal  cut  off  value*. 


/*  Synonyms  for  easier  user  recognition  */ 

synonym ( cone lu5ion_info )=*current  case*. 

synonym ( toa_many_accts ) =*Too  many  accounts*. 

synonym ( curr_acc t_n ) =*number  of  current  accounts*. 

synonym(5uperpayer_info)=*Superpayer*. 

synonym ( alarmingly_high)=*alarmingly  high*. 

synonym (extremely_low)=*extremely  low*. 

synonym ( ex tremel y_ low_cut_off_va 1 ) =*the  extremely  low 

cut  off  value*, 
synonym ( very_ low ) =*very  low*. 

synonym ( very_low_cut_of f_val ) =*very  low  cut  off  value*, 
synonym ( low_cut_off_va 1 ) =*low  cut  off  value*, 
synonym ( very_poor ) =*very  poor*, 
synonym ( moderate ly_high_cut_off_val ) =*mo derate  1 y  high 

cut  off  value*, 
synonym ( h igh_cut_off_val ) =*h igh  cut  off  value*, 
synonym ( very_h i gh_cut_off_va 1 ) =*very  high  cut  off 
value*. 

synonym ( very_critical)=*very  critical*, 
synonym ( ex  treme 1 y_h  igh ) =*ex treme 1 y  high*, 
synonym ( ex treme 1 y_h igh_cut_off_va 1 ) =*ex treme ly  high  cut 

off  value*, 
synonym ( pub  1 1 c_record _va 1  ) =*pub I i c  record  val*. 
synonym ( pr i vate_record_va 1 ) =*pr i vate  record  value*, 
sy no nym( we ighted_decision)=* weighted  decision*, 
synonym  (  set_of_bt<rpts_and_l  iens_we  ight_val  )=*the 

calculated  weights  for  all  bankruptcies  and  liens*, 
synonym (set_of_misc_publ ic_items_weight_val )=*the 

calculated  weights  for  all  miscellaneous  public 
1  tems*  . 
5ynonym(set_of_current_and_paid_acc  ts_weigh t_va 1  ) =*the 

calculated  weights  for  all  current  and  paid 
accounts* . 


synonym ( 5et_of _del inq_acc ts_weigh t _val )=$the  calculated 

weights  for  all  delinquent  accounts$. 
synonym (set_of_misc_private_items_weight_val)=$the 

calculated  weights  for  all  miscellaneous  private 

i  temsS . 
synonym  (  bl<_ad  j_p  ln_weight_val  )  =$the  calculated  weight 

for  debt  included  or  discharged  through  bankruptcy 

chapter  13$, 
synonym ( bk_ad j_p 1 n_info ) =$the  current  case*, 
synonym ( bk 1 iqreo_weight_val ) =$the  calculated  weight  for 

debt  included  or  discharged  through  bankruptcy 

chapter  7  or  11$. 
synonym ( bk 1 iqreo_i nfo ) =$the  current  caseS. 
synonym ( bk_va Is ) =$the  calculated  weight  for  bankruptcy 

filed,  dismissed  or  completed  in  chapters  7,  11  or 

13$. 
synonym ( trw_ i nfo )=$ the  current  case$. 
synonym ( mech_l ien_weight_val ) =$the  calculated  weight 

for  mechanics  lien$. 
synonym ( mech_l ien_ info ) =$the  current  caseS. 
synonym ( mech_rele_weight_val )=$ the  calculated  weight 

for  mechanics  lien  released$. 
synonym( mech_rele_inf o ) =$the  current  case$. 
synonym ( f ed_tax_ln_weight_val ) =$the  calculated  weight 

for  federal  tax  lien$. 
synonym ( fed_tax_ln_ info ) =$the  current  case$. 
synonym ( f ed_tax_rel_weight_va 1 ) =$the  calculated  weight 

for  federal  tax  lien  release$. 
synonym ( fed_tax_rel _info ) =$the  current  case*, 
synonym ( stat_t x_ln_weight_va 1 )=$ the  calculated  weight 

for  state  tax  lien$. 
synonym ( stat_tx_ln_info ) =$the  current  case$. 
synonym( sta_t x_rel_weight_val ) =$the  calculated  weight 

for  state  tax  lien  release*. 
synonym( sta_tx_rel_inf o ) =$the  current  case*, 
synonym ( c i ty_tx_ln_weigh t_val ) =$the  calculated  weight 

for  city  tax  lien$. 
synonym ( c 1 ty_tx_ln_info ) =$the  current  case*, 
synonym ( c i ty_t x_rel_weight_va 1 ) =$the  calculated  weight 

for  city  tax  lien  release*, 
synonym ( c i ty_tx_rel_info ) =*the  current  case*. 
synonym( co_tax_ln_weigh t_val ) =*the  calculated  weight 

for  county  tax  lien*, 
synonym ( co_tax_ ln_ i nfo ) =*the  current  case*. 
synonym( co_tax_rel_weight_val ) =*the  calculated  weight 

Tor  county  tax  lien  release*, 
s/nonym ( co_tax_rel_inf o ) =*the  current  case*, 
synonym ( judgmt_sat_weight_val ) =*the  calculated  weight 

for  satisfied  judgement*. 
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synonym ( judgmt_5at_ i nfo ) =*the  current  case*. 

synonym ( judg_vacat_weight_val ) =*the  calculated  weight 

for  vacated  judgement*, 
synonym ( judg_vacat_ i nfo ) =$the  current  case*, 
synonym ( judgment_we i ght_va 1 ) =$the  calculated  weight  for 

judgement* . 
synonym ( judgment_ i nfo ) =*the  current  case*, 
synonym ( wage_asign_weight_val ) =*the  calculated  weight 

for  wage  assignment*, 
synonym ( wage_as i gn_ i nfo ) =*the  current  case*, 
synonym ( wa_re lease_weigh t_val ) =*the  calculated  weight 

for  wage  assignment  released*. 
synonym( wa_release_inf o ) =*the  current  case*, 
synonym ( sui t_weight_val ) =*the  calculated  weight  for 

sui  t* . 
synonym ( sui t_info ) =*the  current  case*, 
synonym ( sui t_d i smd_weight_val ) =*the  calculated  weight 

for  suit  dismissed*, 
synonym ( mn_mtg_fi l_weight_val ) =*the  calculated  weight 

for  filed  manual  mortgage  report*, 
synonym ( mn_mtg_f i 1 _ i nfo ) =*the  current  case*. 
synonym( nt_respon_weight_va 1 ) =*the  calculated  weight 

for  not  responsible  notice*, 
synonym ( nt_respon_i nfo ) =*the  current  case*, 
synonym ( consel _ser_weight_val ) =*the  calculated  weight 

for  debt  counseling  service*, 
synonym ( consel_ser_info ) =*the  current  case*. 
synonym( curr_acc t_n_weight_val ) =*the  calculated  weight 

for  number  of  current  accounts*. 
synonym( superpayer_inf Q ) =*the  current  case*, 
synonym ( cur _was_co 1 _weight_va 1 ) =*the  calculated  weight 

for  a  current  account  that  was  a  collection 

account* . 
synonym ( cur _wa5_co 1 _ i nfo ) =*the  current  case*, 
synonym ( cur_was_f or _we ight_va 1 ) =*the  calculated  weight 

for  a  current  account  that  was  a  foreclosure*, 
synonym ( cur _was_f or _i nfo ) =*the  current  case*, 
synonym ( cur _was_weight_va 1 ) =*the  calculated  weight  for 

a  current  account  that  was  delinquent*, 
synonym ( cur _was_ i nfo ) =*the  current  case*, 
synonym ( cwpd_weight_val ) =*the  calculated  weight  for  a 

current  account  that  was  past  due*, 
synonym ( curwa5pd_i nfo ) =*the  current  case*, 
synonym ( paid_sat is_weight_val ) =*the  calculated  weight 

for  a  closed  account  that  was  paid  satisfactorily*. 
5ynonym( pa id_sat i s_i nf o ) =*the  current  case*, 
synonym ( pa id_acc t_weight_va 1 ) =*the  calculated  weight 

"for  an  account  that  is  closed,  has  zero  balance  or 

is  not  rated*. 
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SYnonym(paid_acct_inf o )=$the  current  caseS. 

synonymC pd_not_aa_weight_val ) =$the  calculated  weight 

tar  a  paia  account  with  some  payments  not  made  as 

agreedS . 
synonymC pd_not_aa_inf Q ) =Sthe  current  caseS. 
synonym ( pacc_wpd_weight_val ) =$the  calculated  weight  for 

a  paid  account  that  was  past  due*, 
synonym ( pacc_wpd_infQ )=Sthe  current  caseS, 
synonym ( pacc_wdel_weight_val ) =Sthe  calculated  weight 

for  a  paid  account  that  was  delinquents. 
synGnym( pacc_wdel_inf o ) =Sthe  current  case$. 
synonym( pd_chg_of f _weight_yal )=$the  calculated  weight 

for  a  paid  account  that  was  a  charge  offS. 
synonym ( pd_chg_off_info )=$the  current  caseS. 
synonym ( pd_reDO_weight_val ) =$the  calculated  weight  for 

a  paid  account  that  was  a  repossessions, 
synonym ( pd_repo_ info ) =$the  current  cases, 
synonym ( pd_co 1 l_ac_weight_val ) =Sthe  calculated  weight 

for  a  paid  account  that  was  a  collection,  insurance 

or  education  claims, 
synonym ( pd_co 1 1 _ac_i nfo ) =$the  current  caseS. 
synonym ( notpdaa_weight_val ) =Sthe  calculated  weight  for 

an  account  not  being  paid  as  agreedS. 
synonym ( no tpdaa_ info ) =Sthe  current  caseS. 
synonym ( pd_forec lo_weight_va 1 ) =Sthe  calculated  weight 

for  a  paid  account  that  was  a  foreclosures. 
synonym ( pd_forec lo_i nfo ) =$the  current  caseS . 
synonym ( del inq_weight_val ) =Sthe  calculated  weight  for  a 

delinquent  accounts, 
synonym ( de 1 inq_ info ) =Sthe  current  caseS. 
synonym ( accpd_weight_val ) =Sthe  calculated  weight  for  an 

account  past  dueS. 
synonym ( accpd_i nfo ) =Sthe  current  caseS. 
synonym ( vo 1 nrepo_weigh t_val ) =Sthe  calculated  weight  for 

voluntary  repossessions, 
synonym ( vo lnrepo_ i nfo ) =Sthe  current  caseS. 
synonym( f orec losure_weight _va 1 ; =Sthe  calculated  weight 

for  a  foreclosures, 
synonym ( forec 1 osure_ 1 nfo ) =Sthe  currenr  caseS. 
synonym ( repo_weight_va 1 ) =Sthe  calculated  weight  far  a 

repossessions . 
synonym ( repo_ info ) =Sthe  current  caseS. 
synonym ( pdbyd lr_weight_yal ) =Sthe  calculated  weight  for 

an  account  that  was  paid  by  dealers. 
synonym( pdbyd lr_info ) =Sthe  current  cases, 
synonym ( CO  1 1 _acct_weight_ya 1 ) =Sthe  calculated  weight 

for  a  collection  accounts, 
synonym ( CO  1 1 _acct_ i nfo ) =Sthe  current  caseS. 


synonym ( charge_off _weight_val ) =$the  calculated  weight 

for  a  charge  off*, 
synonym ( charge_off_ i nfo ) =$the  current  caseS. 
synonym ( c lose_np_aa_weigh t_va 1 ) =$the  calculated  weight 

for  credit  line  closed  account  not  paid  as  agreed*. 
synonym( c lose_np_aa_inf o ) =*the  current  case*, 
synonym ( scnl _weight_val ) =*the  calculated  weight  for 

unlocated  consumer*, 
synonym ( scnl_ info ) =*the  current  case*, 
synonym ( f ore_proc_weight_val ) =*the  calculated  weight 

for  foreclosure  proceeding*. 
5ynonym( f ore_proc_inf o ) =*the  current  case*, 
synonym ( i nsc 1  a im_weight_va 1 ) =*the  calculated  weight  for 

claim  filed  against  insured  portion  of  balance*, 
synonym ( insc 1 aim_ i nfo ) =*the  current  case*, 
synonym ( gov_c 1 aim_weight_val ) =*the  calculated  weight 

for  government  claim*, 
synonym ( gov_c laim_ info ) =*the  current  case*, 
synonym ( set t led_weight_val ) =*the  calculated  weight  for 

a  settled  account*, 
synonym ( set t led_ i nfo ) =*the  current  case*. 
synonym( scnl _nwloc_weight_val ) =$the  calculated  weight 

for  a  located  consumer  previously  unlocated*. 
synonym ( scnl _nwloc_info ) =*the  current  case*, 
synonym ( co_now_pay_wei ght_va 1 ) =*the  calculated  weight 

for  a  paying  account  that  was  a  charge  off*, 
synonym (co_now_pay_i nfo ) =*the  current  case*, 
synonym ( ref i nanced_we ight_va 1 ) =*the  calculated  weight 

for  a  refinanced  account*, 
synonym ( ref inanced_i nfo ) =*the  current  case*, 
synonym ( cr_cd_ lost_weight_va 1 ) =*the  calculated  weight 

for  credit  card  lost  or  stolen*. 
synonym( cr_cd_lost_inf o ) =*the  current  case*. 
synonym( c los_inac_weight_val )=*the  calculated  weight 

for  closed  inactive  account*, 
synonym ( c los_inac_info ) =*the  current  case*, 
synonym ( transf ered_weight_va 1 ) =*the  calculated  weight 

for  transferred  account*. 
synQnym( transf ered_info ) =*the  current  case*, 
synonym ( too_new_r t_we i ght_va 1 ) =*the  calculated  weight 

tor  an  account  too  new  to  rate*, 
synonym ( too_new_r t_info ) =*the  current  case*, 
synonym ( deceased_weight_va 1 ) =*the  calculated  weight  for 

deceased* . 
synonym ( deceased_i nfo ) =*the  current  case*, 
synonym ( cr_ 1 n_c los_we ight_val ) =*the  calculated  weight 

for  credit  line  closed*, 
synonym ( cr_ ln_c 1 os_ 1 nfo ) =*the  current  case*. 


synonym ( redmd_repo_weight_val ) =$the  calculated  weight 

for  redeemed  repossession*, 
synonym ( redmd_repo_info ) =$the  current  case$. 
synonymC cr_ln_rnst_weight_val ) =$the  calculated  weight 
for  credit  line  reinstated*. 

synonym ( cr_ln_rnst_info ) =$the  current  case*. 
synonym( inq_weight_val ) =*the  calculated  weight  for 

inquiry* . 
synonym ( i nquiry_ i nfo ) =*the  current  case*, 
synonym ( superpayer_weigh t_val ) =$the  calculated  weight 

for  superpayer*. 
synonym ( superpayer_ info ) =*the  current  case*, 
synonym ( bk 1 iqreo_n ) =*the  number  of  occurrences  of  debt 

included  or  discharged  through  bankruptcy  chapter  7 

or  11  *. 
synonym ( sett led_n ) =*the  number  of  occurrences  of 

settled  accounts*, 
synonym ( bk_ad j_p 1 n_n ) =*the  number  of  occurrences  of 

debt  included  or  discharged  through  bankruptcy 

chapter  13*. 
synonym ( scnl _nwloc_n ) =*the  number  of  occurrences  of  a 

located  consumer  previously  unlocated*. 
synonym ( co_now_pay_n ) =*the  number  of  occurrences  of 
charge  offs  now  being  paid*, 
synonym ( fore_proc_n ) =*the  number  of  occurrences  of 

foreclosure  proceedings*, 
synonym ( gov_c la im_n ) =*the  number  of  occurrences  of 

government  claims*, 
synonym ( c lose_np_aa_n ) =*the  number  of  occurrences  of 

credit  line  closed  account  not  paid  as  agreed*, 
synonym ( sen  1 _n ) =*the  number  of  occurrences  of  unlocated 

consumer* . 
synonym ( fed_tax_ln_n ) =*the  number  of  occurrences  of 

federal  tax  liens*, 
synonym ( fed_tax _re 1 _n ) =*the  number  of  occurrences  of 

federal  tax  liens  released*, 
synonym ( judgmt_sat_n ) =*the  number  of  occurrences  of 

satisfactory  judgements*, 
synonym ( judg_vacat_n ) =*the  number  of  occurrences  of 
vacated  judgements*, 
synonym ( mech_l ien_n ) =*the  number  of  occurrences  of 

mechanics  liens*, 
synonym ( mech_rele_n ) =*the  number  of  occurrences  of 

mechanics  liens  released*, 
synonym ( mn_mtg_f i 1 _n ) =*the  number  of  occurrences  of 

filed  manual  mortgage  reports*, 
synonym ( nt_respon_n ) =*the  number  of  occurrences  of  not 

responsible  notices*. 


synonym ( Stat _tx_ ln_n ) =*the  number  of  occurrences  of 

state  tax  liens$. 
synonym ( sta_tx_rel_n ) =$the  number  of  occurrences  of 

state  tax  liens  released*, 
synonym ( sui t_d ismd_n ) =*the  number  of  occurrences  of 

Bui  ts$ . 
synonym ( wage_asign_n ) =$the  number  of  occurrences  of 

wage  assignments* . 
5ynonym( wa_release_n ) =$the  number  of  occurrences  of 

wage  assignments  released*, 
synonym ( refinanced_n ) =$the  number  of  occurrences  of 

ref  inancedS . 
synonym ( cr_cd_l ost_n ) =$the  number  of  occurrences  of 

credit  card  lost*, 
synonym < c los_inac_n ) =*the  number  of  occurrences  of 

closed  inactive  account*, 
synonym ( transfered_n ) =*the  number  of  occurrences  of 

transfers* . 
synonym ( too_new_r t_n ) =*the  number  of  occurrences  of  too 

new  to  rate*, 
synonym ( paid_sat i s_n ) =$the  number  of  occurrences  of 

paid  satisfactorily*, 
synonym ( paid_acc t_n ) =*the  number  of  occurrences  of  paid 

account* , 
synonym ( deceased_n ) =*the  number  of  occurrences  of 

deceased* . 
synonym ( cr_ 1 n_c 1 os_n ) =*the  number  of  occurrences  of 

credit  line  closed*, 
synonym ( redmd_repo_n ) =*the  number  of  occurrences  of 

redeemed  repossessions*, 
synonym ( cur _was_co 1 _n ) =*the  number  of  occurrences  of 

current  accounts  that  were  collection  accounts*, 
synonym ( cr_ln_rnst_n ) =*the  number  of  occurrences  of 

credit  line  reinstated*. 
synonym( cur_was_f or_n ) =*the  number  of  occurrences  of 

current  accounts  that  were  foreclosures*, 
synonym ( pd_no t_aa_n ) =*the  number  of  occurrences  of  paid 

accounts  with  some  payments  not  made  as  agreed*, 
synonym ( c i ty_t x_ 1 n_n ) =*the  number  of  occurrences  of 

city  tax  li en* . 
synonym ( c i ty_tx_re 1 _n )=* the  number  of  occurrences  of 

city  tax  lien  released*, 
synonym ( consel _ser_n ) =*the  number  of  occurrences  of 

debt  counseling  service*. 
synonym( co_tax_ln_n ) =*the  number  of  occurrences  of 

county  tax  lien*, 
synonym ( co_tax_rel _n ) =*the  number  of  occurrences  of 

county  tax  lien  released*. 


synonym ( pd_forec lo_n ) =$the  number  of  occurrences  of 

paid  accounts  that  were  foreclosures*, 
synonym ( pd_chg_off_n ) =$the  number  of  occurrences  of 

paid  accounts  that  were  charge  offs$. 
synonym ( pd_repo_n ) =$the  number  of  occurrences  of  paid 

accounts  that  were  repossessions*, 
synonym ( pd_co 1 1 _ac_n ) =$the  number  of  occurrences  of 

paid  accounts  that  were  collections,  or  insurance 

or  education  claims*, 
synonym ( pacc_wdel60_n ) =*the  number  of  occurrences  of 

paid  accounts  that  were  delinquent  60  days*, 
synonym ( pacc_wde 190_n ) =*the  number  of  occurrences  of 

paid  accounts  that  were  delinquent  90  days*, 
synonym ( pacc_wdel 120_n ) =*the  number  of  occurrences  of 

paid  accounts  that  were  delinquent  120  days*, 
synonym ( pacc_wde 1 1 50_n ) =*the  number  of  occurrences  of 

paid  accounts  that  were  delinquent  150  days*, 
synonym ( pacc_wdel lSO_n ) =*the  number  of  occurrences  of 

paid  accounts  that  were  delinquent  180  days*, 
synonym ( sui t_n ) =*the  number  of  occurrences  of  suits*, 
synonym ( pacc_wpd_30_n ) =*the  number  of  occurrences  of 

paid  accounts  that  were  past  due  30  days*, 
synonym ( pacc_wpd_30by23_n ) =*the  number  of  occurrences 

of  paid  accounts  that  were  past  due  30  days  2  or  3 

t  imes* . 
synonym  (  pacc_wpd_30by<4'_n  )  =$the  number  of  occurrences  of 

paid  accounts  that  were  past  due  30  days  ^  times*. 
synonym( pacc_wpd_30by5_n ) =*the  number  of  occurrences  of 

paid  accounts  that  were  past  due  30  days  5  times*, 
synonym ( pacc_wpd_30by6_n ) =*the  number  of  occurrences  of 

paid  accounts  that  were  past  due  30  days  6    times*, 
synonym ( accpd_30_n ) =*the  number  of  occurrences  of  an 

account  past  due  30  days*, 
synonym ( accpd_30by2_n ) =*the  number  of  occurrences  of  an 

account  past  due  30  days  2  times*, 
synonym ( accpd_30by3_n ) =*the  number  of  occurrences  of  an 

account  past  due  30  days  3  times*, 
synonym ( accpd_30by^_n )=* the  number  of  occurrences  of  an 

account  past  due  30  days  '^     times*, 
synonym ( accpd_30by5_n ) =*the  number  of  occurrences  of  an 

account  past  due  30  days  5  times*. 
synonym ( accpd_30by6_n ) =*the  number  of  occurrences  of  an 

account  past  due  30  days  6  times*, 
synonym ( cwpd_n ) =*the  number  of  occurrences  of  a  current 

account  that  was  past  due*, 
synonym ( cwpd_30_n ) =*the  number  of  occurrences  of  a 

current  account  that  was  past  due  30  days*. 
synonym ( cwpd_30by2_n ) =*the  number  of  occurrences  of  a 


current  account  that  was  past  due  30  days  2 
t  imesS . 
synonym( cwpd_30by3_n ) =*the  number  of  occurrences  of  a 

current  account  that  was  past  due  30  days  3  times*, 
synonym  (  cwpd_30by'^_n  )  =$the  number  of  occurrences  of  a 

current  account  that  was  past  due  30  days  A-  times*, 
synonym ( cwpd_30by5_n ) =$the  number  of  occurrences  of  a 

current  account  that  was  past  due  30  days  5  times*, 
synonym  ( cwpd_30by(f3_n )  =$the  number  of  occurrences  of  a 

current  account  that  was  past  due  30  days  6  times*, 
synonym ( d_60_n ) =*the  number  of  occurrences  of  an 

account  delinquent  60  days*, 
synonym ( d_90_n ) =*the  number  of  occurrences  of  an 

account  delinquent  90  days*, 
synonym ( d_l 20_n ) =*the  number  of  occurrences  of  an 

account  delinquent  120  days*, 
synonym  (  d_l  50_n  )  =*the  number  of  occurrences  of  a.n 

account  delinquent  150  days*, 
synonym ( d_ 1 SO_n ) =*the  number  of  occurrences  of  an 

account  delinquent  180  days*, 
synonym ( c_w_60_n ) =*the  number  of  occurrences  of  a 

current  account  that  was  delinquent  60  days*, 
synonym ( c_w_90_n ) =*the  number  of  occurrences  of  a 

current  account  that  was  delinquent  90  days*, 
synonym ( c_w_l 20_n ) =*the  number  of  occurrences  of  a 

current  account  that  was  delinquent  120  days*. 
synQnym( c_w_150_n ) =*the  number  of  occurrences  of  a 

current  account  that  was  delinquent  150  days*. 
synonym( c_w_180_n ) =*the  number  of  occurrences  of  a 

current  account  that  was  delinquent  180  days*, 
synonym ( pdbyd lr_n ) =*the  number  of  occurrences  of 

accounts  paid  by  dealer*, 
synonym ( CO  1 l_acct_n ) =*the  number  of  occurrences  of 

collection  account*, 
synonym ( charge_off_n ) =*the  number  of  occurrences  of 

charge  offs*. 
synonym( curr_acc t_n ) =*the  number  of  occurrences  of 
current  accounts*, 
synonym (  i nsc 1  a im_n ) =*the  number  of  occurrences  of  a 

claim  filed  against  insured  portion  of  balance*, 
synonym ( notpdaa_n ) =*the  number  of  occurrences  of  an 

account  not  being  paid  as  agreed*, 
synonym ( vo 1 nrepo_n ) =*the  number  of  occurrences  of 

voluntary  repossession*. 


/* RULES */ 

the  concluded  of  cone lus ion_ i nf o  is  too_many_acc ts 

10^ 


the  curr_acct_n  of  superpayer_ i nf o  is  N  and 
N  >  20. 

the  concluded  of  cone lus ion_i nf o  is  potent i a  1 _bankrup t 

if 
the  weigh t_p t_va 1  of  weigh t_pt_ i nfo  is  a larmi ng 1 y_h igh . 

the  weigh t_p t_va 1  of  we igh t_p t _ i nf o  is  a  1  arm i ng 1 y_h i gh 


the 
the 
Y  > 


overal 1 _weight_val  of  cone  1  us ion_ i nf o  is  Y  and 
pb_cut _of f _va 1  of  cut_off_info  is  Z  and 


the  concluded  of  cone lus ion_ i nfo  is  superpayer 


the 
the 
E  > 


month  1 y_payment  of  the  superpayer_ i nf o  is  E  and 
month ly_ i ncome  of  the  persona  1 _ i nfo  is  I  and 


the  concluded  of  cone lus ion_i nfo  is  normal 

if 
the  we igh t_p t_va 1  of  weigh t_p t_info  is  ex tremel y_ low . 

the  weight_pt_val  of  weigh t_pt_ i nfo  is  ex tremely_ 1 ow 

if 
the  overa 1 l_we igh t_val  of  cone lusion_ info  is  Y  and 
the  ex tremely_low_cut_of f _val  of  cut_off_info  is  Z  and 
/  =<  Z. 

the  concluded  of  cone lus ion_ i nfo  is  satisfactory 

if 
the  weigh t_pt_va 1  of  weigh t_p t_ i nfo  is  very_low. 

the  wei gh t_p t_val  of  we i gh t_p t _ i nf o  is  very_low 

if 
the  o vera  1 1 _we 1 gh t _va 1  of  cone  1  us i on_ i nf o  is  Y  and 
the  very_ low_cut _of f _va 1  of  cut_Qff_info  is  Z  and 


the  concluded  of  cone  1  us i on_ i nf o  is  poor 

if 

the  we igh t_pt_val  of  we igh t _p t_ i nf o  is  low. 

the  we igh t_p t_val  of  we i gh t _p t_ i nf o  is  low 

if 
the  overa 1 1 _we igh t_val  of  cone  1  us i on_ i nf o  is  Y  and 

the  low  cut  off  val  of  cut_off_info  is  Z  and 


Y  =<  Z. 

the  concluded  of  cone lus ion_i nf o  is  very_poor 

if 
the  weight_p t_val  of  we i gh t_p t _ i nf o  is  moderatel y_h i gh . 

the  weight_p t_va 1  of  we i gh t _p t_ i nf o  is  moderate  1 y_h igh 

if 
the  o vera  1 1 _we igh t_va 1  of  cone  1  us ion_ i nf o  is  Y  and 
the  moderatel y_h i gh_cut_off_val  of  cut_off_info  is  Z 
and 

Y  =<  Z. 

the  concluded  of  cone lus ion_ i nfo  is  serious 

if 
the  weigh t_p t_va 1  of  we igh t _p t_ i nf o  is  high, 

the  weigh t_pt_val  of  weigh t_p t_ i nfo  is  high 

if 
the  overal l_weight_val  of  cone lus ion_ i nfo  is  Y  and 
the  h igh_cut_of f _va 1  of  cut_off_info  is  Z  and 

Y  =<  Z. 

the  concluded  of  cone lus ion_ i nfo  is  critical 

If 
the  wei gh t_p t_va 1  of  we i gh t _p t _ i nf o  is  very_high. 

the  weight_pt_val  of  we igh t_p t _ i nf o  is  very_high 

if 
the  overa 1 l_weight_val  of  cone lusion_ i nfo  is  Y  and 
the  very_h igh_eut_of f _va 1  of  cut_off_info  is  Z  and 

Y  =<  Z. 

the  concluded  of  cone lus ion_ i nfo  is  very _cr i t i ca 1 

if 
the  wei gh t_p t _va 1  of  weigh t _p t_ i nfo  is  ex tremel y_h i gh . 

the  we i gh t _p t _va 1  of  we i gh t _p t _ i nf o  is  ex t reme 1 y _h i gh 

1  f 
the  o vera  1 1 _we igh t_va 1  of  cone  1  us i on_ i nf o  is  Y  and 
the  ex tremel y_h igh_cut_off_va 1  of  cut_Qff_infa  is  Z  and 

Y  >  Z. 


the  overal l_we ight_val  of  cone lus i on_ i nfo  is  Y 

if 
the  pub  1 ic_reeord_va 1  of  cone lus ion_i nfo  is  Y_l  and 
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the  pr i vate_record_val  of  cone  1  us i on_ i nf o  is  Y_2  and 
Y  =  Y_l+Y_2. 

the  concluded  of  cone  1  us ion_i nf o  is  X 

if 
the  overa  1  l_'^eight_val  of  cone  1  us  ion_i  nf  o  is  Y  and 

weiqhted_deci5ion(Y,X)  . 

the  pub  1 ic_record_val  of  cone  1  us i on_ i nf o  is  Z 

if 
the  set _of _bkrp ts_ana_l iens_weight_val  of 
cone lusion_i nf o  is  Z_l  and 

the  set_of _misc_pup 1 ic_ i tems_weigh t_val  of 
cone lusion_inf o  is  Z_2 
and  Z  =  Z_l+Z_2. 

the  pr i vate_record_val  of  cone  1  us ion_i nf o  is  Z 

if 
the  set_of _current_and_paid_ace ts_weight_val  of 
conclusion_inf o  is  Z_3  and 

the  set_of _de 1 i nq_acc ts_wei gh t _val  of  cone lus ion_ i nf o 
is  Z_'+  and 

the  set_of _m i se_pr i vate_ i tems_weight_val  of 
cone lus ion_ i nfo  is  Z_5  and 
Z  =  Z  3+Z  ^+Z  5. 


the  set _of _bkrp ts_and_ 1 i ens_weigh t_va 1  of 
cone lus 1 on_ i nfo  is  Z_l 

if 
the  bk_ad j_p 1 n_weigh t _val  of  bk_ad j _p 1 n_ i nf o  is  X_l  and 
the  bk 1 iqreo_weight_val  of  bk 1 iqreo_ inf o  is  X_2  and 
the  bk_vals  of  trw_info  is  X_3  and 

the  mech_  1  ien_weigh  t_va  1  of  meeh_  1  ien_  i  nf  o  is  X_'4-  and 
the  mech _rele_we i gh t_va 1  of  mech_re 1 e_ i nf o  is  X_5  and 
the  f ed_tax_ ln_we igh t_val  of  f ed_ tax_ 1 n_ i nf o  is  X_6  and 
the  f ed_tax_re 1 _we i gh t_va 1  of  f ed_ t ax_re 1 _ i nf o  is  X _7 

and 
the  sta  t  _t  x_  1  n_iAie  igh  t  _va  1  of  s  ta  t_  t  x_  1  n_  i  nf  o  is  X_a  and 
the  sta_t x_rel _we igh t_val  of  sta_t x_re 1 _ i nf o  is  X_9  and 
the  c i ty_ tx_ 1 n_we igh t_va 1  of  c i t y_t x_ 1 n_ i nf o  is  X_10 

and 
the  c 1 t y_t x_re 1 _we igh t_va 1  of  eity_tx_rel_info  is  X_ll 
and 

the  co_tax_  1  n_i^e  ign  t_va  1  of  co_  tax_  1  n_  i  nf  o  is  X_12  and 
the  eo_tax_rel_weigh t_val  of  co_t ax_re 1 _ i nf o  is  X_13 

and 


Z_l  =  X_l  +  X_2  +  X_3+X_'^-t-X_5  +  X_6+X_7  +  X_S+X_9  +  X_10 
+  X_1  H-X_1E  +  X_13. 

the  set_of _mi sc_pub 1 i c_ i tems_weigh t_va 1  of 
cone lus ion_ 1 nf o  is  Z_2 

if 
the  judgmt_5at_weight_val  of  judgmt _sat_ i nf o  is  X_20 

and 
the  judg_vacat_weigh t_va 1  of     judg_vaca t _ i nf o  is  X_21 

and 
the  judgment _weigh t_va 1  of  judgment _ i nfo  is  X_22  and 
the  wage_a5 1 gn_weigh t_va 1  of  wage_as ign_ i nf o  is  X_23 

and 
the  wa_release_weight_val  of  wa_release_i nf o  is  X_2^ 

and 
the  sui t _d i smd_wei gh t_va 1  of  su i t _d i smd_ i nf o  is  X_25 

and 
the  sui t_wei ght_va 1  of  suit_info  is  X_26  and 
the  mn_mtg_f i 1 _weigh t _va 1  of  mn_mtg_f i 1 _i nf o  is  X_27 

and 
the  nt_respon_weigh t_va 1  of  nt _r espon_inf o  is  X_2S  and 
the  consel _5er_weight_va 1  of  consel _ser_ inf o  is  X_29 

and 
Z_2  =  X_20+X_21+X_22+X_23+X_2^+X_25+X_26+X_27 
+X  2S+X  29. 


the  setof _current_and_paid_acc ts_weight_val  of 
cone lusion_i nfo  is  Z_3 
if 

the  curr_acc t _n_weight_va 1  of  superpayer _ i nf o  is  X_30 

and 

the  cur_was_co 1 _wei gh t_va 1  of  cur _was_co 1 _ i nf o  is  X_31 

and 
the  cur_was_f or_weight _va 1  of  cur _was_f or _ i nf o  is  X_32 

and 
the  cur _was_weight_va 1  of  cur_was_info  is  X_33  and 
the  cwpd_weigh t_va 1  of  curwaspd _ i nf o  is  X_3^  and 
the  pa  1 d _sat 1 s_wei gh t_va 1  of  pa i d_sat i 5_ i nf o  is  X_35 

and 
the  paid_acc t_weigh t_val  of  pa i d_acc t_ i nf o  is  X_36  and 
the  pd_no t_aa_weigh t_va 1  of  pd_no t_aa_ inf o  is  X_37  and 
the  pacc_iMpd_weight_val  of  pacc_wpd_i  nf  o  is  X_38  and 
the  pacc_wde 1 _weigh t_val  of  pacc_wde 1 _i nf o  is  X_39  and 
the  pd_chg_of  f  _weight_val  of  pd_chg_of  f  _  inf  o  is  X_'^0 

and 
the  pd_repo_weigh t_va 1  of  pd_repo_info  is  X_^l  and 


the  pd_col l_ac_weight_val  of  pd_co 1 1 _ac_ i nf o  is  X_^2 

and 
the  notpdaa_weight_val  of  notpdaa_info  is  X_^3  and 
the  pd_f  orec  lo_weight_val  of  pd_f  orec  lo_i  nf  o  is  X_^'^ 

and 
2_3=X_30+X_31+X_32+X_33+X_3^+X_35+X_36+X_37+X_38+ 

X_39  +  X_^0  +  X_'^l+X_^2  +  X_'^3  +  X_^'^. 

the  5et_of _del i nq_acc t5_weigh t _va 1  of  cone  1  us i on_ i nf o 
is  Z_^ 

if 
the  del  1  nq_weight_val  of  delinq_info  is  X_'^5  and 
the  accpd_weight_val  of  accpd_info  is  X_'^6  and 
the  vo lnrepo_weight_val  of  vo 1 nrepo_i nf o  is  X _^1    and 
the  f  orec  losure_weigh  t_va  1  of  f  orec  1  osure_  i  nf  o  is  X_'^a 

and 
the  repo_weight_val  of  repo_info  is  X_'^9  and 
the  pdbyd 1 r_weigh t_val  of  pdbydlr_info  is  X_50  and 
the  col l_acct_weight_val  of  co 1 1 _acc t_i nf o  is  X_51  and 
the  charge_of f _weigh t_va 1  of  charge_of f _ i nf o  is  X_52 

and 
the  c lo5e_np_aa_weight_va 1  of  c 1 ose_np_aa_ i nf o  is  X_53 

and 
the  scnl  _weight_va  1  of  scnl_info  is  X_5A-  and 
the  f ore_proc_weight_val  of  f ore_proc_ inf o  is  X_55  and 
the  insc laim_weight_val  of  i nsc 1 aim_i nf o  is  X_56  and 
the  gov_c 1  a im_weigh t_val  of  gov_c 1  a im_ i nf o  is  X_57  and 
2_^  =  X_^5  +  X_'^6  +  X_^7+X_^S  +  X_^9  +  X_50+X_51+X_52  +  X_53  + 

X_5'+  +  X_55  +  X_56-f-X_57. 

the  set_of _m isc_pr i vate_ i tems_weigh t_va 1  of 
cone lu5ion_i nf o  is  Z_5 

if 
the  set t led_weight_va 1  of  settled_info  is  X_5a  and 
the  scnl_nwloc_weight_val  of  sen  1 _nw 1 oc_ i nf o  is  X_59 

and 
the  co_now_pay_weight_val  of  co _naw_pay_ i nf o  is  X_60 

and 
the  ref i nanced_we igh t _va 1  of  ref i nanced_ i nf o  is  X_61 

and 
the  er_ed_lost_weigh t_val  of  cr _cd_ 1 os t_ i nf o  is  X_62 

and 
the  c 1 os_ 1 nae_weigh t _va 1  of  c 1 os_ i nac_ i nf o  is  X_63  and 
the  transf  ered_weight_val  of  transf  ered_  i  nf  o  is  X_6'^ 

and 
the  too_new_r t_weigh t_va 1  of  too_new_r t _ i nf o  is  X_65 

and 
the  deceased_weigh  t_va  1  of  deceased_  i  nf  o  is  X_6(b  and 


the  cr_ 1 n_c 1 os_weight_va 1  of  cr_ 1 n_c los_ i nf o  is  X_67 

and 
the  redmd_repo_weigh t_va  1  of  redmd_repo_  i  nf  o  is  X_<bS 

and 
the  cr_  1  n_rnst  _iAjeigh  t_va  1  of  cr_  1  n_rnst_  i  nf  o  is  X_69 
and 

the  i nq_weight_val  of  inquiry_info  is  X_70  and 
the  superpayer_we igh t_va 1  of  superpayer_ i nf o  is  X_71 

and 
Z_5=  X_58+X_59  +  X_60+X_61+X_62  +  X_(S3  +  X_6^+X_65+X_66  + 
X  67  +  X  (Sa  +  X  69  +  X  70  +  X  71. 


the  bk 1 iqreo_weigh t _va 1  of  bk 1 i qreo_ i nf o  is  X 

if 
the  bkliqreo_n  of  bk 1 iqreo_ i nf o  is  N_l  and 
iAjeight_per_status(bkl  iqreo  ,UJT_1  )  and 
X  =  N_1*WT_1 . 

the  set t led_we igh t_val  of  settled_info  is  X 

if 
the  settled_n  of  settled_info  is  N_l  and 
weight_per_status(settled,lA)T_l  )  and 
X  =  N  1*WT  1 . 


the  bk_ad j_p 1 n_we igh t_va 1  of  bk_ad j_p 1 n_ inf o  is  X 

If 
the  bk_adj_pln_n  of  bk_ad j_p 1 n_ i nf o  is  N_l  and 
weight_per_status(bk_adj_pln,UT_l )  and 
X  =  N  l-x-WT  1  . 


the  scnl_nwloc_weight_val  of  scnl _nwloc_i nf o  is  X 

if 
the  scnl_nwloc_n  of  sen  1 _nw 1 oc_ i nf o  is  N_ 1  and 
weight_per_status(3cnl_nwloc,WT_l )  and 
>:  =  N_l  *WT_1  . 


the  CQ_now_pay_we igh t_va 1  of  co_now_pay_ i nf o  is  X 

if 
the  co_now_pay_n  of  co_now_pay_ i nf o  is  N_l  and 
wei  gh  t_per_status  (  co_now_pay  ,  U)T_  1  )  and 
X  =  N  1 *WT  1 . 


the  f ore_proc_weigh t _va 1  of  f ore_proc_ inf o  is  X 

if 
the  fore_proc_n  of  f ore_proc_ i nf o  is  N_l  and 


weight_per_status(fore_proc ,WT_1 )  and 
X  =  N_1*WT_1 . 


the  gQv_c laim_weight_val  of  gov_c 1  a im_ mf o  is  X 

if 
the  gQv_claim_n  of  gov_c la im_ i nf o  is  N_l  and 
iAjeight_per_status(gov_claim,WT_l)  and 
X  =  N_1«WT_1 . 


the  c lose_np_aa_weight_va 1  of  c 1 ose_np_aa_ i nf o  is  X 

if 
the  c lose_np_aa_n  of  c 1 ose_np_aa_ i nf o  is  N_l  and 
weight_per_status  (  c  lose_np_aa  ,  UJT_1  )  and 
X  =  N_1*WT_1 , 

the  scnl_weight_val  of  scnl_info  is  X 

if 
the  scnl_n  of  scnl_info  is  N_l  and 
weigh t_per_status ( scnl , WT_1 )  and 
X  =  N  1*UJT  1  . 


the  f ed_tax_ln_weigh t_va 1  of  f ed_tax_ 1 n_ i nf o  is  X 

If 
the  fed_tax_ln_n  of  f ed_tax_ 1 n_i nf o  is  N_l  and 
weigh t_per_status (fed_tax_ln,WT_l )  and 
X  =  N  1*WT  1 . 


the  f ed_tax _re i _we igh t_va 1  of  f ed_tax_re 1 _ i nf o  is  X 

if 
the  f ed_tax_re 1 _n  of  f ed_ tax_re 1 _ i nf o  is  N_l  and 
weight_per_5tatus(  fed_tax_rel  ,UIT_1  )  and 
X  =  N  1*WT_1 . 


the  jadgmt _sa t_we igh t _va 1  of  j udgmt _sat _ i nf o  is  X 

if  the  j'udgmt_sat_n  of  j  udgmt  _sat_  i  nfo  is  N_l  and 
weight_per_status(  judgmt_sat  ,UJT_1  )  and 
X  =  N  1*WT  1, 


the  judg_vacat_weigh t_val  of  j udg_vacat_ i nf o  is  X 


the  judg_vacat_n  of  judg_vacat_ i nf o  is  N_l  and 
vMeight_per_statLis(  judg_vacat  ,WT_1  )  and 
X  =  N  1*WT  1 . 


the  mech_l ien_weigh t_val  of  mech_ 1 i en_ i nf o  is  X 

if 
the  fnech_lien_n  of  mech_  1  ien_  i  nf  o  is  N_l  and 
weight_per_status(mech_l ien,WT_l )  and 
X  =  M  1 *WT  1  . 


the  mech_re le_we igh t _va 1  of  mech_rel e_ inf o  is  X 

if 
the  mech_rele_n  of  mech_re le_ i nf o  is  N_l  and 
wei gh t_per_status ( mech_re 1 e , WT_ 1 )  and 

X  =  N  1*WT  1 . 


the  mn_mtg_f i 1 _weigh t_va 1  of  mn_mtg_f i 1 _ i nf o  is  X 

if 
the  mn_mtg_fil_n  of  mn_mtg_f i 1 _ i nf o  is  N_l  and 
weight_per_status(mn_mtg_fi 1 ,WT_1 )  and 
X  =  N  1*WT  1 . 


the  nt_respon_weight_val  of  nt_respon_ i nf o  is  X 

if 
the  nt_re5pon_n  of  nt _respon_ i nf o  is  N_l  and 
wei gh t_per_5tatus ( nt _respon , WT_ 1 )  and 
X  =  N  1*WT  1 . 


the  stat_t x_ ln_weigh t_va 1  of  stat_t x_ 1 n_ i nf o  is  X 

If 
the  stat_tx_ln_n  of  sta t_t x_ 1 n_ i nf o  is  N_l  and 
weigh  t_per_status  (  stat_tx_  In  ,  UJT_  1  )  and 
X  =  N  1*WT  1  . 


the  sta_t x_re 1 _we igh t_va 1  of  st a_t x_re 1 _ i nf o  is  X 

if 
the  5ta_tx_rel_n  of  sta _ t x_re 1 _ i nf o  is  N_l  and 
lAiei  ght_per_5tatus(  sta_tx_rel  ,WT_1  )  and 
X  =  N_1*WT_1 . 

the  su 1 t_d 1 smd_we i gh t_va 1  of  su i t_d i smd_ i nf o  is  X 

if 
the  suit_dismd_n  of  su i t _d i smd_ i nf o  is  N_l  and 
weight_per_5tatus(suit_dismd,UT_l )  and 
X  =  N_1*UT_1 . 

the  wage_as  ign_weigh  t_va  1  of  iAjage_as  i  gn_  i  nf  o  is  X 


the  wage_a5ign_n  of  wage_a5 i gn_ i nf o  is  N_l  and 
weight_per_status(  wage_asign,  UJT_1  )  and 
X  =  N  1*WT  1 . 


the  wa_release_weight_val  of  wa_re lease_ i nf o  is  X 

if 
the  i/Ma_release_n  of  wa_re  1  ease_  i  nf  o  is  N_l  and 
weight_per_statu5  (  wa_release  ,  UJT_1  )  and 
X  =  N  1 *WT  1 . 


the  ref inanced_weight_va 1  of  ref i nanced_ i nf o  is  X 

if 
the  refinanced_n  of  ref i nanced_ i nf o  is  N_l  and 
weigh  t_per_status  (  ref  inanced  ,  UIT_  1  )  and 
X  =  N_1*WT_1 . 


the  cr_cd_ lost_weight_val  of  cr_cd_ lost_ i nf o  is  X 

If 
the  cr_cd_lost_n  of  cr_cd_ 1 ost_ i nf o  is  N_l  and 
weight_per_status(cr_cd_lost ,WT_1 )  and 
X  =  N  1 *WT  1 . 


the  c 1 os_ i nac_we igh t_va 1  of  c  los_ i nac_ i nf o  is  X 

if 
the  clos_inac_n  of  c los_i nac_ i nf o  is  N_l  and 
weight_per_status(clos_inac ,WT_1 )  and 
X  =  N  1*WT_1 . 


the  transf  ered_iAie  1  gh  t_va  1  of  transf  ered_  i  nf  o  is  X 

if 
the  transfered_n  of  transf ered _ i nfo  is  N_l  and 
weight_per_status ( transfer ed ,UT_1 )  and 
X  =  N  1 ♦WT_1 . 


the  too_new_r  t_iAjei  gh  t  _va  1  of  too  _new_r  t_  i  nfo  is  X 

1  t 
the  too_new_rt_n  of  too_new_r t _ i nf o  is  N_l  and 
iAieight_per_status(  too_new_rt  ,UT_1  )  and 
X  =  N  1*UJT  1  . 


the  pa id_sat 1 s_weigh t_va 1  of  pa  i  d_sa 1 1 s_ i nf o  is  X 

if 
the  paid_satis_n  of  pa id_sat i s_ i nf o  is  N_l  and 
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/Mei  gh  t_per_5tatus  (  pa  id_sat  is  ,  WT_  1  )  and 
X  =  N_l-x-WT_l  . 


the  pa id_acc t_we igh t_va 1  of  pa id_acc t_ i nf o  is  X 

if 
the  paid_acct_n  of  paid_acc t_ i nf o  is  N_l  and 
weigh t_per_status ( pa id_acct , WT_ 1 )  and 
X  =  N  1*WT  1 . 


the  deceased_wei gh t_va 1  of  deceased_ i nf o  is  X 

if 
the  deceased_n  of  deceased_ i nf o  is  N_l  and 
weigh  t_per_statu5  (  deceased  ,  UJT_  1  )  and 
X  =  N_1*WT_1 . 

the  cr_ ln_c los_weigh t_val  of  cr_ 1 n_c los_ i nf o  is  X 

If 
the  cr_ln_clos_n  of  cr_ 1 n_c los_ i nf o  is  N_l  and 
weight_per_status(cr_ln_clos,UJT_l  )  and 
X  =  N_1*WT_1 . 


the  redmd_repo_iAje  i  gh  t_va  1  of  redmd_repo_  i  nf  o  is  X 

if 
the  redmd_repo_n  of  rednnd_repo_  i  nf  o  is  N_l  and 
weigh t_per_statu5 ( redmd_repo , WT_ 1 )  and 
X  =  N_1*WT_1 . 

the  cur_was_co 1 _we igh t_val  of  cur_wa5_co 1 _ inf o  is  X 

if 
the  cur_was_co 1 _n  of  cur_was_co 1 _ i nf o  is  N_l  and 
we  igh  t_per_status  (  cur_wa5_co  1  ,UJT_1  )  and 
X  =  N  1 *WT  1 . 


the  cr _ 1 n_rns t_we i gh t_va 1  of  cr _ 1 n_rns t _ i nf o  is  X 

if 
the  cr_ln_rnst_n  of  cr_ 1 n_rns t _ i nf o  is  N_l  and 
weight_per_status(cr_ln_rnst ,WT_1 )  and 
X  =  N  H<-WT  1  . 


the  cur_was_f or_weigh t_va 1  of  cur_was_f or_ i nf o  is  X 

if 
the  cur_was_f or_n  of  cur_was_f or_ i nf o  is  N_l  and 
weight_per_status(cur_was_fQr,WT_l )  and 


X    =    N_1*WT_1 . 


the    pd_not_aa_weight_val    of    pd_no t_aa_inf o     is    X 

if 
the    pd_not_aa_n    of    pd_no t _aa_ i nf o     is    N_l     and 
vMeight_per_5tatus  (  pd_no  t_aa  ,  WT_  1  )     and 
X     =    N_1*WT_1 . 


the  c 1 tv_tx_ln_weiqht_val  of  c i ty_t x _ 1 n_ i nf o  is  X 

if 
the  citv_tx_ln_n  of  c i ty_ t x_ 1 n_ i nf o  is  N_l  and 
iA)eight_oer_status(citv_tx_ln,WT_l  )  and 
X  =  N_1*WT_1 . 

the  c i ty_t x_rel_weigh t_val  of  c i ty _ t x _re 1 _ i nf o  is  X 

if 
the  c i ty_t x_rel_n  of  c i t y _t x_re 1 _ i nf o  is  N_l  and 
weight_per_status(city_tx_rel  ,1>JT_1  )  and 
X  =  N_1*WT_1 . 

the  conse  1  _ser_^Me  igh  t_val  of  conse  1  _ser_  i  nf  o  is  X 

1  f 
the  consel_ser_n  of  conse 1 _ser _ i nfo  is  N_l  and 
we  ight_per_status(  conse  l_ser,UJT_l  )  and 
X  =  N  1*WT  1 . 


the  co_ tax_ 1 n_we igh t_val  of  co_tax_l n_ i nf o  is  X 

if 
the  co_tax_ln_n  of  co_tax_l n_i nf o  is  N_l  and 
«^Jeigh  t_per_status(co_tax_ln,WT_l  )  and 
X  =  N  1*WT  1 . 


tne  CO  _tax_'-e  I  _we  igh  t_val  of  co_tax_rel  _  i  nf  o  is  X 
if 

the  co_tax_rBl_n  of  co_ t ax_re 1 _ i nf o  is  N_i  and 
wei  gnr_per_starLi5(co_tax_rel  ,Ujr_l  ;  and 
X  =  M_l*WT_l , 

the  od_f  orec  lo_i«jeigh  t_val  of  pd_f  orec  1  o_  i  nf  o  is  X 


the  pd_fQreclo_n  of  pd_f orec 1 o _ i nfo  is  N_l  and 
weight_per_status(pd_foreclo  ,UJT_1  )  and 
X  =  N  1*WT_1 . 


the  pd_chg_of f _wei gh t _va 1  of  pd_chg_of f _ i nf o  is  X 
if 

the  pd_chg_of f _n  of  pd_chg_of f _ i nf o  is  N_l  and 
weigh t_per_status ( pd_chg_off , WT_ 1 )  and 
X  =  N_1*WT_1 . 


the  pd_repo_we igh t_val  of  pd_repo_info  is  X 

if 
the  pd_repo_n  of  pd_repo_info  is  N_l  and 
weight_per_status(pd_repo,U)T_l  )  and 
X  =  N  1*UT  1  . 


the  pd_co 1 l_ac_weigh t_val  of  pd_co 1 1 _ac_ i nf o  is  X 
if 

the  pd_coll_ac_n  of  pd_co 1 1 _ac_ i nf o  is  N_l  and 
weight_per_status(pd_co 1 l_ac ,WT_1 )  and 
X  =  N  1*UIT  1  . 


the  pacc_wdel_weight_val  of  pacc_wde 1 _ i nf o  is  X 

if 
the  pace 
we  igh t _per 

Pace 
the  pacc_w 
weight_per 

Pacc_w 
the  pace 
we  i  gh t _per 

Pace 
the  pace 
weigh t_per 

Pace 
the  pace 
we  igh t  per 

Pace 
X  =  Pace 
Pace  wdell 


del60_n  of  pacc_wde 1 60_ i nf o  is  N_l  and 

statu5(pacc_wdel60, WT_1 )  and 
del60_WT  =  N_1*WT_1  and 

idel90_n  of  pacc_wde 190_ i nf o  is  N_2  and 
_status(pacc_wdel90,WT_2)  and 
idel90_UT  =  N_E-i<-WT_2  and 

dell20_n  of  pacc_wdel 120_ i nf o  is  N_3  and 
_status(pacc_wdel 120,WT_3)  and 
dell20_UJT  =  N_3*WT_3  and 
idell50_n  of  pacc_wde  1  150_  i  nf  o  is  N_A-  and 

status(pacc_wdel 150, WT_^)  and 
idell50_UT  =  N_^*WT_^  and 
dellSO_n  of  pacc_wde 1 1 80_ i nf o  is  N_5  and 

status( pace_wdel 180 , WT_5 )  and 
dell80_WT  =  N_5*WT_5  and 

ideI60_UT  +  Pace_wdel90_WT  +  Pacc_wde 11 20_WT 
50  WT  +  Pace  wdellSO  WT . 


the  su 1 t _we igh t _va 1  of  suit_info  is  X 

if 
the  suit_n  of  suit_info  is  N_l  and 
weigh t_per_status ( sui t , UT_1 )  and 
X  =  N_l-»«-WT_l  . 


the  pacc_wpd_we igh t_val  of  paec_wpd_ i nf o  is  X 
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if 

the  pacc_wpcl_30_n  of  pacc_wpd_30_  i  nf  o  is  N_l  and 

weight_per_status(pacc_wpd_30,WT_l )  and 

Pacc_wpd_30_WT  =  N_l-«-WT_l  and 

the  pacc_wpd_30by23_n  of  pacc_wpd_30byE3_i nf o  is  N_2 

and 

weight_per_status( pacc_wpd_30by23 , WT_2 )  and 

Pacc_wpd_30byE3_WT  =  N_2*WT_2  and 
the  pacc_wpd_30by'^_n  of  pacc_wpd_30by'^_i  nf  o  is  N_^    and 
weight_per_status(pacc_wpd_30byA-,U)T_'^)  and 

Pacc_wpd_30by^_WT  =  N_^*WT_'^  and 
the  pacc_wpd_30by5_n  of  pacc_wpd_30by5_ inf o  is  N_5  and 
weight_per_statLis(pacc_wpd_30by5,WT_5)  and 

Pacc_wpd_30by5_WT  =  N_5-»«-WT_5  and 
the  pacc_wpd_30by6_n  of  pacc_wpd_30by(S_i  nf  o  is  N_6  and 
we  ight_per_status(  pacc_wpd_30by6  ,  UJT_6  )  and 

Pacc_wpd_30by6_WT  =  N_(b*WT_6  and 
X  =  Pacc_wpd_30_WT  +  Pacc_wpd_30by23_WT  + 
Pacc_wpd_30by^_WT  + 
Pacc_wpd_30by5_WT  +  Pacc_wpd_30by6_WT . 


the  accpd_we igh t_va 1  of  accpd_info  is  X 

if 
the  accpd 
weight_pe 

Accpd 
the  accpd 
weigh t_pe 

Accpd 
the  accpd 
weight_pei 

Accpd 
the  accpd 
weight_pe' 

Accpd 
the  accpd 
weigh  t_pe 

Accpd 
the  accpd 
we ight_pe 

Accpd 
X  =  Accpd 
Accpd_30b 


30_n  of  accpd_30_ i nf o  is  N_l  and 

_status ( accpd_30 , WT_1 )  and 
_30_WT  =  N_1*WT_1  and 

_30by2_n  of  accpd_30by2_ i nf o  is  N_2  and 
r_status(accpd_30by2, WT_2)  and 
_30by2_WT  =  N_2*WT_2  and 

_30by3_n  of  accpd_30by3_ i nf o  is  N_3  and 
r_status(accpd_30by3, WT_3)  and 

30by3_WT  =  N_3*WT_3  and 

30by^_n  of  accpd_30by^_  i  nf  o  is  N_'^  and 

_status(accpd_30by^,WT_'^)  and 

30by^_WT  =  N_^*UT_^  and 

30by5_n  of  accpd_30by5_ i nf o  is 
r_status(accpd_30by5,UJT_5)  and 

30by5_WT  =  N_5*WT_5  and 

30by6_n  of  accpd_30by6_ i nf o  19 
r_status(accpd_30by6, WT_6)  and 

30by6_U)T  =  M_6-)<-UJT_6  and 

30_WT  +  Accpd_30by2_UT  +  Accpd_30by3_WT 

A_WT  +  Accpd_30by5_UT  +  Accpd_30by6_WT . 


and 


and 


the  cwpd_ 


?ight_val  of  cur waspd_ i nf o  is  X 


the  cwpd_n  of  cwpd_info  is  N_l  and 
we  ight_per_status(  cwpd  ,UJT_1  )  and 
Cwpd_WT  =  N_H<-WT_1  and 


the  cwpd_30_n  of  cwpd_30_ i nf o  is  N_2  and 
weight_per_status(cwpd_30,UIT_2)  and 

Cwpd_30_UJT  =  N_2*WT_2  and 
the  cwpd_30by2_n  of  cwpd_30by2_ i nf o  is  N_3  and 
iAjeight_per_status(cwpd_30by2,UiT_3)  and 

Cwpd_30by2_WT  =  N_3*WT_3  and 
the  cwpd_30by3_n  of  cwpd_30by3_  inf  o  is  N_'^  and 
weigh  t_per_status( cwpd_30by3 , WT_^ )  and 

Cwpd_30by3_WT  =  N_'^*WT_'^  and 
the  cwpd_30by'^_n  of  cwpd_30by^_  i  nf  o  is  N_5  and 
weigh  t_per_status( cwpd_30by4 , WT_5 )  and 

Cwpd_30by'^_U)T  =  N_5*UJT_5  and 
the  cwpd_30by5_n  of  cwpd_30by5_  i  nf  o  is  N_<S  and 
weight_per_status( cwpd_30by5 , WT_6 )  and 

Cwpd_30by5_WT  =  N_6*UJT_6  and 
the  cwpd_30by6_n  of  cwpd_30by6_ i nf o  is  N_7  and 
weight_per_status(  cwpd_30by6  ,  Ia)T_7  )  and 

Cwpd_30by6_WT  =  N_7->«-WT_7  and 
X  =  Cwpd_WT  +  Cwpd_30_WT  +  Cwpd_30by2_UT  + 
Cwpd_30by3_WT  + 
Cwpd_30by^_WT  +  Cwpd_30by5_UT  +  Cwpd_30by6_WT . 


the  del inq_weight_val  of  delinq_info  is  X 

if 
the  d_(SO_n  of  d_60_info  is  N_l  and 
weight_per_5tatus(del  i  nq_(SO  ,  WT_  1  )  and 

D_60_WT  =  N_1*WT_1  and 
the  d_90_n  of  d_90_info  is  N_2  and 
weight_per_status(del inq_90,WT_2)  and 

D_90_UT  =  N_2-t«-WT_2  and 
the  d_120_n  of  d_120_info  is  N_3  and 
weight_per_status(del inq_120,WT_3)  and 

D_120_WT  =  N_3*WT_3  and 
the  d_150_n  of  d_150_info  is  N_^  and 
weight_per_status(del  inq_150,UJT_'^)  and 

D_150_WT  =  N_^*UT_^  and 
the  d_iaO_n  of  d_180_info  is  N_5  and 
weight_per_status(del inq_180,WT_5)  and 

D_iaO_WT  =  N_5*WT_5  and 
X  =  D  60  UT  +  D  90  WT  +  D  120  WT  +  D  150  WT  +  DISO  WT . 


the  cur_was_weigh t _va 1  of  cur_was_infQ  is  X 


the  c_w_60_n  of  c_w_60_info  is  N_l  and 
wei gh t_per_status ( c_w_60 , WT_ 1 )  and 


the  c 


_60_WT  =  N_l-»«-WT_l  and 

_90_n  of  c  w  90  info  is  N  2  and 


weight_per_5tatus(c_w_90,WT_2)  and 

C_w_90_UJT  =  N_2*WT_E  and 
the  c_w_120_n  of  c_w_120_infQ  is  N_3  and 
weight_per_status (c_w_120, WT_3 )  and 

C_w_iaO_WT  =  N_3*WT_3  and 
the  c_w_150_n  of  c_w_150_info  is  N_'^  and 
weight_per_status(c_w_150,WT_^)  and 

C_w_150_UIT  =  N_^*WT_^  and 
the  c_w_180_n  of  c_w_iaO_info  is  N_5  and 
weight_per_status(c_w_lSO, WT_5 )  and 

C_w_iaO_WT  =  N_5*WT_5  and 
X  =  C_w_60_WT  +  C_w_90_WT  +  C_w_120_WT  + 

C_w_150_WT  +  C_w_iaO_WT. 


the  pdbyd  lr_weigh t_va 1  of  pdbydlr_info  is  X 

if  the  pdbydlr_n  of  pdbydlr_info  is  N_l  and 


,«jeight_per_status(pdbydlr  ,WT_1  )     and 
X    =    N_1*WT     1 . 


the  CO  1 1 _acct_weight_val  of  co 1 1 _acc t_ i nf o  is  X 

if 
the  coll_acct_n  of  co 1 1 _acc t _ i nf o  is  N  and 
weight_per_status(col l_acct ,WT)  and 
X  =  N*WT . 


the  charge_of f _we i gh t_va 1  of  charge_of f _ i nf o  is  X 

if 

the  charge_off_n  of  charge_of f _ i nf o  is  N  and 

weight_per_status(charge_off,WT)  and 

X  =  N*WT. 

the  1 nq_we igh t_va 1  of  inquiry_info  is  X 

if 
the  no_of_inq  of  inquiry_info  is  N  and 
we  1  gh  t  _per  _5  ta  tus  (  inquiry5U)T)  and 

X.  =  N*wr. 

the  curr _acc t_n_we i gh t _va 1  of  superpayer_ i nf o  is  X 

It 

the  curr_acct_n  of  superpayer _ i nf o  is  N  and 

we ight_per_status(curr_acct  5WT )  and 

X  =  N*WT. 

the  superpaver_wei gh t_va 1  of  superpayer_ i nf o  is  X 


the  month  1 y_payment  of  the  superpayer_ i nf o  is  E  and 
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the  month  1 y_ i ncome  of  the  persona  1 _ i nfo  is  I  and 
E  >  I  and  we i ght_f or_superpayer ( X ) . 

the  superpayer_we i gh t_va 1  of  superpayer_ i nf o  is  X 

if 

the  month ly_payment  of  the  5uperpayer_ i nf o  is  E  and 

the  month  1 y_ i ncome  of  the  persona  1 _ i nfo  is  I  and 

E  <  I  and 


month  1 y_payment  of  superpayer _ i nf o  is  E 

if 
ssn  of  persona  1 _ 1 nfo  is  SSN  and 
compute_total_monthly_payment(SSN,E). 


month ly_i ncome  of  persona  1 _ i nfo  is  I 

if 
5sn  of  persona  1 _ i nfo  is  SSN  and 
compute_d i scret ionary_ income ( SSN , I ) . 


the  i  nsc  1  a  im_iAjeigh  t_va  1  of  i  nsc  1  a  i  m_  i  nf  o  is  X 

if 
the  insclaim_n  of  i nsc 1  a im_ i nf o  is  N_l  and 
weigh  t_per_status  (insclaim,lA)T_l)  and 
X  =  N_1*IaJT_1  . 

the  no tpdaa_weigh t_val  of  notpdaa_info  is  X 

if 
the  notpdaa_n  of  notpdaa_info  is  N_l  and 
we  igh  t_per_status  (  no  tpdaa  ,  IaIT_  1  )  and 
X  =  N_1*WT_1 . 

the  vo 1 nrepo_we igh t _va 1  of  vo 1 nrepo_ i nf o  is  X 

if 
the  volnrepo_n  of  vo 1 nrepo_ i nf o  is  N_l  and 
weight_per_status(vQlnrepo ,WT_i )  and 
X  =  N_1*WT  1.. 


/*  CRD13.TAX   (TAXONOMY)   How  the  knowledge  is 
represented*/ 

type  weight_p t_inf o  =  role, 
type  cut_off_info  =  role, 
type  customer_prof i le_i nf o  =  role, 
type  superpayer_ i nf Q  =  role. 
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type  banl<rupt_inf o  =  role, 
type  currency_i nf o  =  role, 
type  □k_a lready_ i nf Q  =  role. 

type  trw_info  =  role. 

type  i nd i V idual _ i nf o  =  role. 

type  cone lus iQn_ i nf o  =  role. 

type  persona i _i nfo  =  role. 

type  inquiry_info  =  role. 

type  wei gh t_p t_va 1  = 

[extreme ly_low,very_low,low,moderately_high, 

high  ,very_high , ex tremely_h igh ,alarmingly_high3 . 
type  pd_cut_of f _val  =  numeric, 
type  ex tremely_h igh_cut_of f _val  =  numeric. 
type  very_h igh_cut _of f _va 1  =  numeric. 
type  h igh_cut_of f _val  =  numeric. 
type  moderately_h igh_cut_of f _val  =  numeric. 
type  low_cut_of f _va 1  =  numeric. 
type  very_low_cut_of f _va 1  =  numeric. 
type  ex tremely_ low_cut_of f _va 1  =  numeric. 

type  month  1 y_payment  =  numeric, 
type  month  1 y_ i ncome  =  numeric, 
type  ssn  =  numeric. 
type  sal_5tep  =  numeric. 
type  zip  =  numeric- 
type  m_status  =  Csing le , marr ied ,d i vorced ]  . 
type  dob  =  numeric, 
type  concluded  = 

L too_many_accts, super payer , normal ,satisfactory, 
poor ,very_poor ,seriQus, 

critical  ,potenti  al_banl<rup  t,very_criticalJ  . 
type  curr_acct_n  =  numeric, 
type  curr_acc t_n_weight_va 1  =  numeric, 
t/pe  cur_wa5_val5  =  C 60 , 90 ,  1  SO ,  1 50 ,  1 80 , f or , co 1 3 .  type 

Daid_vais  = 

l90, 1E0» 150, ia05Coliac,repQ,chgQff,forecio,bydler]. 

type  delinq_vals  =  [60,90,120,150,180]. 

type  del inq_was_vals  =  [90,120D. 

type  bk_vals  = 

[bk_7_file,bk_7_disc,bk_7_dism,bl<_ll_file, 
bk_l i_disc ,bk_l l_dism,bk_13_fi le,bk_13_dism, 
bk_l3_comp,not_bankrupt3  . 


type  conc_bank  =  C bk_red , b k_green , bk_ye 1 1 ow , b k_orange ] . 

type  curr_acc t_ i nf o  =  role, 
type  cur_was_info  =  role, 
type  delinq_info  =  role. 


type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 


paid_info  =  role. 

CO  1  1 _acc t_ i nf o  =  role. 

x_30_day_del _ inf o  =  role. 

pd_co 1 1 _ac_ inf o  =  role. 

charge_of f _inf o  =  role. 

bk_l iq_reo_inf o  =  role. 

f orec 1 osure_i nf o  =  role. 

judgment_inf o  =  role. 

repQ_infa  =  role. 

pdbydlr_info  =  role. 

no_of_inq  =  numeric. 

c_w_60_info  =  role. 

c_w_90_info  =  role. 

c_w_l£0_info  =  role. 

c_w_150_info  =  role. 

c_w_180_info  =  role. 

c_w_60_n  =  numeric. 

c_w_60_a  =  numeric. 

c_w_90_n  =  numeric. 

c_w_90_a  =  numeric. 

c_iAj_120_n 

c_uM_120_a 

c_iAj_150_n 

c_w_150_a 

c_w_iaO_n 

c_w_180_a 

d_60_info 

d  90  info 


numer ic 
numer  ic 
numer  ic 
numer  ic 
numer  ic 
numer  ic 
role. 

__       _  role. 

_120_info  =  role. 

_150_info  =  role. 

_lSO_info  =  role. 

_60_n  =  numeric. 

_60_a  =  numeric. 

_90_n  =  numeric. 

_90_a  =  numeric. 

_120_n  =  numeric. 
120  a  =  numeric. 


_150_ 
_150_ 
_1S0_ 

'lao 


numer ic . 
numer  ic  . 
numer  ic . 
numer  i  c . 


pdbydlr_n  =  numeric. 
pdbydlr_a  =  numeric. 


tvDe 
type 
type 

type 
tvae 
rvoe 
tvoe 
t  vce 

tvoe 
rvoe 
type 
type 
type 
type 
type 
tvoe 
tvae 
•::yDe 
type 
ryoe 
type 
De 


x_  ji,^_aav_ae  1  _a  = 
curr_acct_n  =  -_- 
overal  l_weiGi^  '_  ■  = 
□uD 1 ic_r SCO rd_v a : 
3riyate_recora_v= 
set_c:^_bk'-::-s_arc 


numer i z . 
set_of_aei  i  na_acc  t=_.Neiz""T_.al 
set  _of  _.'Disc_pr  ivat  =  _i  •:  =  -s_.s=iz" 
del  inq_weight_yai  =  r.i-.T.eric. 
cur_was_weigh t_yal  =  numeric. 
CO  1 l_acc t_weigh t_va 1  =  numeric. 
Dd_coil_ac_n  =  numeric. 
pa_coll_ac_a  =  numeric. 
Da_ca  1  l_ac_weiGtn  t_val  =  -"_-  =  -:: 
cnarge_off_r.  =  -^^^e-iz. 
charge_off_a  =  -_'  =  '-ir. 
charge_of  f  _««ie  :  z- •:_  .  a  1  =  ---  =  -:i 
inq_weight_val  =  nume-iz. 
superpayer_weight_vai  =  "_-=-:; 
*  orec  1  05ure_^ei  gnr_va  1  =  -_-  =  '-: 

c  GCD  vC  i  r_*^e  i  gr  •:  _  .  a  1  =  "-..'■e^iz. 

-sc laim_infc  =  '31=. 

"sclaim_n  =  ---e-ic. 

-5ciaim_a  =  nume^-ic. 

-sc i a im_weight_va 1  =  numeric. 

:tccaa_info  =  role. 


type  cwpd_30by'^_i  nf  o  =  role, 
type  cwpd_30by5_inf o  =  role, 
type  cwpd_30by6_inf o  =  role, 
type  cwpd_n  =  numeric, 
type  cwpd_a  =  numeric, 
type  cwpd_30_n  =  numeric, 
type  cwpd_30_a  =  numeric, 
type  cwpd_30by2_n  =  numeric, 
type  cwpd_30by2_a  =  numeric, 
type  cwpd_30by3_n  =  numeric, 
type  cwpd_30by3_a  =  numeric, 
type  cwpd_30by^_n  =  numeric, 
type  cwpd_30by'^_a  =  numeric, 
type  cwpd_30by5_n  =  numeric, 
type  cwpd_30by5_a  =  numeric, 
type  cwpd_30by6_n  =  numeric, 
type  cwpd_30byif3_a  =  numeric, 
type  accpd_weight_val  =  numeric, 
type  accpd_info  =  role, 
type  accpd_30_ inf o  =  role, 
type  accpd_30by2_ i nf o  =  role, 
type  accpd_30by3_ inf o  =  role, 
type  accpd_30byA^_  inf  o  =  role, 
type  accpd_30by5_inf o  =  role, 
type  accpd_30by(£)_i  nf  o  =  role, 
type  accpd_30_n  =  numeric, 
type  accpd_30_a  =  numeric, 
type  accpd_30byE_n  =  numer i 
type  accpd_30byE_a  =  numer i 
type  accpd_30by3_n  =  numeri 
type  accpd_30by3_a  =  numeric, 
type  accpd_30byA-_n  =  numeri 
type  accpd_30by^_a  =  numer: 
type  accpd_30by5_n  =  numeri 
type  accpd_30by5_a  =  numer; 
type  accpd_30by6_n  =  numeri 
type  accpd_30by6_a  =  numeric, 
type  pacc_wpd_ i nf o  =  role, 
type  pacc_iAjpd_30_  i  nf  o  =  role, 
type  pacc_iAjpd_30by23_i  nf  o  =  role, 
type  pacc_tAipd_30by'^_  i  nf  o  =  role, 
type  pacc_wpd_30by5_inf o  =  role, 
type  pacc_wpd_30by6_ i nf o  =  role, 
type  pacc_wpd_30_n  =  numeric, 
type  pacc_wpd_30_a  =  numeric, 
type  pacc_wpd_30by23_n  =  numeric, 
type  pacc_iAipd_30by23_a  =  numeric, 
type  pacc_wpd_30by^_n  =  numeric, 
type  pacc_wpd_30by'^_a  =  numeric. 
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type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 


pacc_wpd_30by5_n  =  numeric. 
pacc_wpd_30by5_a  =  numeric. 
pacc_wpd_30by6_n  =  numeric. 
pacc_wpd_30by6_a  =  numeric. 
pacc_iAipd_wei  gh  t_va  1  =  numeric. 
5uit_info  =  role. 
5uit_n  =  numeric. 
suit_a  =  numeric, 
sui t_weight_val  =  numeric. 
pacc_wdel_inf o  =  role. 
pacc_wdel60_inf o  =  role. 
pacc_wde 190_inf o  =  role. 
pacc_wdel lEO_inf o  =  role. 
pacc_wdel 150_inf o  =  role. 
pacc_wdel iaO_i nf o  =  role. 
pacc_wdel60_n  =  numeric. 
pacc_wdel60_a  =  numeric. 
pacc_wde 190_n  =  numeric. 
pacc_wdel90_a  =  numeric. 


pacc_ 
pacc_ 
pacc_ 


pacc_ 
pacc_ 


numer ic . 


umer ic  . 


dell20_n  =  numeric 
idellEO_a  =  numeric 
dell50_n  =  numeric 

pacc_wde 1 1 50_a  =  numeric 

pacc_wdel 180_n  =  numeric 
idell80_a  =  numeric 
del _weigh t_val 

pd_repo_info  =  role. 

pd_repo_n  =  numeric. 

pd_repo_a  =  numeric. 

pd_repo_weigh t_va 1  = 

pd_chg_of f _inf o  =  role. 

pd_chg_Qff_n  =  numeric. 

pd_chg_off_a  =  numeric. 

pd_chg_of f _weight_val  =  numeric. 

pd_f orec lo_inf o  =  role. 

pd_foreclo_n  =  numeric. 

pd_foreclo_a  =  numeric. 

pd  _f orec lo_weigh t _va 1 

bk 1 iqreo_ i nf o  =  role. 

bkliqreo_n  =  numeric. 

bkliqreo_a  =  numeric. 

bk 1 iqreo_weight_val  = 

5ettled_info  =  role. 

settled_n  =  numeric. 

settled_a  =  numeric. 

set t led_we i gh t_val  =  numeric. 

bk_ad j _p 1 n_ inf o  =  role. 

bk_adj_pln_n  =  numeric. 


umer i c  . 


-irner  i  c  . 


type  bk_ad j _p ln_a  =  numeric. 

type  bk_ad j_p ln_weight_val  =  numeric. 

type  scnl_nwloc_inf o  =  role. 

type  scnl_nwloc_n  =  numeric. 

type  scnl_nwloc_a  =  numeric. 

type  scnl _nwloc_weigh t_va 1  =  numeric. 

type  co_now_pay_ inf o  =  role. 

type  co_now_pay_n  =  numeric. 

type  co_now_pay_a  =  numeric. 

type  co_now_pay_weigh t_va 1  =  numeric. 

type  f ore_proc_i nf o  =  role. 

type  fore_proc_n  =  numeric. 

type  tore_proc_a  =  numeric. 

type  f ore_proc_weight_va 1  =  numeric. 

type  gov_c 1 aim_ inf o  =  role. 

type  gov_claim_n  =  numeric. 

type  gov_claim_a  =  numeric. 

type  gQv_c 1  a im_wei ght_val  =  numeric. 

type  c lose_np_aa_ inf o  =  role. 

type  c lose_np_aa_n  =  numeric. 

type  c lose_np_aa_a  =  numeric. 

type  c lose_np_aa_weigh t_va 1  =  numeric. 

type  scnl_info  =  role. 

type  scnl_n  =  numeric. 

type  scnl_a  =  numeric. 

type  scnl _weigh t_va 1  =  numeric. 

type  t ed_tax_ ln_ inf o  =  role. 

type  fed_tax_ln_n  =  numeric. 

type  fed_tax_ln_a  =  numeric. 

type  f ed_tax_l n_weigh t_va 1  =  numeric. 

type  f ed_tax_rel _inf o  =  role. 

type  f ed_tax_rel_n  =  numeric. 

type  f ed_tax_rel _a  =  numeric. 

type  f ed_tax_rel _weight_val  =  numeric. 

type  judgmt_sat_i nf o  =  role. 

type  judgmt_sat_n  =  numeric. 

type  judgmt_sat_a  =  nume 

type  judgmt _sat_we 1 gh t_v 

type  judg_vacat_ i nf o  =  r 

type  judg_vacat_n  =  nume 

type  judg_vacat_a  =  numer i 

type  judg_vacat_wei gh t_ 

type  mech_ 1 ien_ i nf o  =  role. 

type  mech_lien_n  =  numeric. 

type  mech_lien_a  =  numeric. 

type  mech_ 1 ien_weigh t_va 1  =  numeric. 

type  mech_rele_inf o  =  role. 

type  mech_rele_n  =  numeric. 


numer i c . 


numer ic . 


tyoe  mec'^_-=l=_a  =  -_~  =  ' 

type  mec""  _^=  1  =_^e  1 :;  ""  t  _  .  a 

tyDe  fnn_iTi'Cy  _~  i  1  _  1  ~~  2  =  •* 

type  mn_mtg_~il_"  =  -_-= 

type  mn_mtg_-:l_a  =  --.-^s 

type  mn_mtg_f i I _weight_v 

type  nt_respon_inf o  =  ro 

type  nt_respon_n  =  numer 

tvDe  "t_respon_a  =  numer 

tvce  nt_respon_weight_va 


vC=  Stat 


_  in_inTo 


r.Ds  sza._z  K  _rs  ^  _a  =  numeric 
t/pe  sta_t x_rel_weight_val  = 
type  sui  t_d  i  smd_  i  n-fo  =  rols 
tvpe  suit_dismd_n  =  numeric 
type  5uit_aismd_a  =  numeric 
type  sui t_d ismd_weight_vai  = 
tyce  wage_a5i gn_i nf o  =  rcle 
tyoe  iMage_asi  gn_r,  =  numeric 
type  ^age_a5ign_a  =  rune^ic 
type  wage_asign_»^(eign  t_  .  a  1  ■ 
type  wa_release_ i nf o  =  -cL= 
type  wa_'-el  ease_'^  =  ^i-r  =  -:c 
tvce  .-.a_--  =  l  =a5  =  _a  =  --.-e-ic 
type  ^.a_--  =  l=a  =  =  _Ae  :  c- •:_  .  a  1  ■ 
type  r  e~  -  nanceC_  1 ''*  c  =  rc-ie 
tvce  reT  1  nancec:_n  =  numeric 


ryoe  transf=-==_ 
tyDe    transTe^=c_ 

cvDe  trans^e'-  =  c_ 
cyoe  t-ansf =^=c _ 
tyoe     tec     ne^_'t_ 


type  too_new_rt_a  =  numeric. 

type  too_new_r t_we igh t_va 1  =  numeric. 

type  paid_5at i 5_inf o  =  role. 

type  paid_sat is_n  =  numeric. 

type  paid_5at i s_a  =  numeric. 

type  pa id_sat i5_weight_val  =  numeric. 

type  paid_acct_inf Q  =  role. 

type  paid_acct_n  =  numeric. 

type  paid_acct_a  =  numeric. 

type  paid_acct_weight_val  =  numeric. 

type  cr_  ln_c lDS_inf o  =  role. 

type  cr_ln_clos_n  =  numeric. 

type  cr_ln_clos_a  =  numeric. 

type  cr _ ln_c los_weigh t_va 1  =  numeric. 

type  deceased_inf o  =  role. 

type  deceased_n  =  numeric. 

type  deceased_a  =  numeric. 

type  deceased_weigh t_val  =  numeric. 

type  redmd_repo_ i nf Q  =  role. 

type  redmd_repo_n  =  numeric. 

type  redmd_repo_a  =  numeric. 

type  redmd_repo_weight_val  =  numeric. 

type  cur_was_co 1_ inf o  =  role. 

type  cur_iAjas_co  1  _n  =  numeric. 

type  cur_was_co 1 _a  =  numeric. 

type  cur_was_co 1 _weigh t _va 1  =  numeric. 

type  cr_ ln_rn5t_ i nf o  =  role. 

type  cr_ln_rnst_n  =  numeric. 

type  cr_ln_rnst_a  =  numeric. 

type  cr_ln_rnst_weigh t_val  =  numeric. 

type  cur_was_f or_inf o  =  role. 

type  cur_wa5_f or_n  =  numeric. 

type  cur_was_f or_a  =  numeric. 

type  cur_was_f or_we igh t_val  =  numeric. 


type  pd_no t _aa_ i nf o  =  role. 

type  pd_not_aa_n  =  numeric. 

type  pd_not_aa_a  =  numeric. 

type  pd_nQ  t__aa_we  igh  t_va  1  =  numeric. 

type  c 1 ty_t x_ 1 n_ i nf o  =  role. 

type  city_tx_ln_n  =  numeric. 


type  c 
type  c 
type  c 
type  c 
type  c 


ity_ 
ity_ 
ity_ 
ity_ 
ity_ 


.ln_ 


numer  ic . 
_ ln_weigh t_va 1  =  numeric. 
_rel _  i  nf o  =  role. 
_rel_n  =  numeric. 
_rel_a  =  numeric. 
type  c i ty_t x_rel_weight_val  =  numeric. 


type  CQnsel_ser_ir;f o  =  role. 

type  consel_ser_n  =  numeric. 

type  consel_ser_a  =  numeric. 

type  consel_ser_weight_val  =  numeric. 

type  co_tax_ln_inf o  =  role. 

type  co_tax_ln_n  =  numeric. 

type  co_tax_ln_a  =  numeric. 

type  co_tax_ln_weight_val  =  numeric. 

type  CQ_tax_rel_inf o  =  role. 

type  co_tax_rel_n  =  numeric. 

type  co_tax_rel_a  =  numeric. 

type  co_tax_rel_weight_va  1  =  numeric. 


define  primitive  perserec  with 

cu5tomer_prQf i 1 e_ i nf o  =  cus tomer_prof i 1 e  and 
5uperpayer_i nf □  =  superpayer  and 
bankrup t_i nf o  =  bankrupt  and 
weight_pt_inf o  =  weight_pt  and 
cut_off_info  =  cut_off  and 
cone lus ion_ i nf o  =  conclusion. 

define  primitive  customer_prof i le  with 
personal _info  =  oersonal  and 
trw_info  =  trw. 

cefine  primitive  superpayer  with 

debt_equi ty_rat io  =  (0,3)  and 

curr_acct_n  =  (0,100)  and 
curr_acct_n_weiqht_val  =  (0,1000)  and 
monthly_Dayment  =  (0,20000)  and 

5uperDayer_weight_yal  =  (0,1000). 

define  orimitive  bankrupt  with 

conc_bank  =  [ bk _red , bk_green , bk_ye 1 1 ow , bk_orange ] . 

define  primitive  weight_pt  with 

weigh t_pt_val  = 
Lex  treme ly_low,very_low,  lcw,moderately_high , 
nigh , very_nigh ,ex  tremel y_high,alarmingly_high]  . 

de-'ine  primitive  cut_off  with 

pb_cut_Qf f _yal  =  (399,^01)  and 
ex tremely_h igh_cut_of f _val  =  (200,250)  and 
very_h igh_cut_of f _val  =  (170,199)  and 
high_cut_off _val  =  (120,1^9)  and 
moderately_h igh_cut_of f _val  =  (100,119)  and 
low_cut_of f_val  =  (80,99)  and 
very_low_cut_of f _val  =  (40,59)  and 
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extremely_low_cut_off_val  =  (0,39). 

define  primitive  conclusion  with 
concluded  = 

[ too_many_acc ts, sup erpayer, normal ,satisfactory, 
poor ,very_poor , ser  ious , 

critical ,potential_bankrupt,very_critical ] 
and 
overal l_weight_val  =  (0,10000)  and 
pub  1 ic_recQrd_val  =  (0,10000)  and 
pr 1 vate_record_val  =  (0,10000)  and 
set_of_bl<rpt5_and_l  i  ens_wei  ght_val  = 
(0,10000)  and 

set_of_misc_public_items_weight_val  = 
(0,10000)  and 

set _of_current _and_pa id _acc  ts_wei  ght_val  = 
(0,10000)  and 

5et_of  _del  inq_acc  ts  jAjeight_val  =  (0,10000) 
and 

5et_of _mi  sc_private_i  tems_weight_val  = 
(0, 10000) . 

define  primitive  personal  with 
ssn  =  (1,999999999)  and 
zip  =  (10000,99999)  and 

mstatus  =  C s ing le , marr i ed , d i vorced ]  and 
dob  =  (  1900,  198<S)  and 
month ly_income  =  (0,20000). 


define  primitive  trw  with 

curr_acc t_inf o  =  curr_acct  and 

cur_was_info  =  cur_was  and 

delinq_info  =  delinq  and 

pdbydlr_info  =  pdbydlr  and 

CO  1 1 _acc t_ i nfo  =  coll_acct  and 

x_30_day_de 1 _ i nf o  =  x_30_day_del  and 

bk_ 1 iq_reo_ i nf o  =  bk_liq_reo  and 

bk_vals  = 
f^bk  _7_f  1  le,bk_7_disc  ,  b  k_7_d  i  sm  ,  bk_  1  1  _f  i  1  e  ,  b  k  _  1  1  _d  i  sc  , 
bk_ll_dism,bk_13_file,bk_13_dism,bk_13_cQm- 
p , no  t_bankrup  t ] 

and 

pd_co 1 1 _ac_ i nf o  =  pd_coll_ac  and 

charge_of f _ i nf o  =  charge_off  and 

f orec losure_ i nf o  =  foreclosure   and 

judgment_ inf o  =  judgment  and 

repo_info  =  repo  and 

inquiry_info  =  inquiry  and 
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insc 1  a im_ i nf Q  =  insclaim  and 
no tpdaa_inf Q  =  notpdaa  and 
VQ lnrepo_ i nf o  =  volnrepo  and 
curwaspd_i nf o  =  curwaspd  and 
accpd_info  =  accpd  and 
pacc_wpd_inf o  =  pacc_wpd  and 
suit_infQ  =  suit  and 
pd_repo_info  =  pd_repo  and 
pd_chg_of f _inf o  =  pd_chg_off  and 
pd_f orec lo_ inf o  =  pd_foreclo  and 
bk 1 iqreQ_ inf o  =  bkliqreo  and 
pacc_wdel_inf o  =  pacc_wdel  and 
settled_info  =  settled  and 
bk_ad j_p ln_i nf o  =  bk_adj_pln  and 
sen l_nwloc_ i nf o  =  scnl_nwloc  and 
co_now_pay_ i nf o  =  co_now_pay  and 
f ore_proc_ 1 nf o  =  fore_proc  and 
gov_c laim_inf o  =  gov_claim  and 
c lo5e_np_aa_i nf o  =  cl05e_np_aa  and 
scnl_info  =  scnl  and 
f ed_tax_ln_inf o  =  fed_tax_ln  and 
f ed_tax_rel_inf o  =  fed_tax_rel  and 
judgmt_sat_ i nf o  =  judgmt_sat  and 
judg_vacat_i nf o  =  judg_vacat  and 
mech_l ien_inf o  =  mech_lien  and 
mech_rele_ i nf o  =  mech_rele  and 
mn_mtg_f i 1 _ i nf o  =  mn_mtg_fil  and 
nt_respon_ 1 nf o  =  nt_respon  and 
stat_t x_ln_ inf o  =  stat_tx_ln  and 
st a_t x_re 1 _ i nf o  =  sta_tx_rel  and 
sui t_d ismd_inf o  =  suit_di5md  and 
wage_asign_ inf o  =  wage_asign  and 
wa_release_inf o  =  wa_release  and 
ref i nanced_i nf o  =  refinanced  and 
cr_cd_ 1 ost_ i nf Q  =  cr_cd_lost  and 
c 1 os_inac_ i nf o  =  clos_inac  and 
transf ered_ i nf o  =  transfered  and 
too_new_r t_ i nf o  =  toQ_new_rt  and 
pa  1 d_sat i s_ 1 nf o  =  paid_satis  and 
Da  1 d_acc t _ 1 nf Q  =  paid_acct  and 
cr _ 1 n_c 1 os_ 1 nf o  =  cr_ln_clos  and 
deceased_ i nf Q  =  deceased  and 
redmd_repo_  i  nf  o  =  rednnd_repo  and 
cur  _was_co  1  _  i  nf  o  =  cur  _iAias_co  1  and 
cr_ ln_rnst_ i nf o  =  cr_ln_rnst  and 
cur_wa5_f or _ i nf o  =  cur_was_for  and 
pd_not_aa_ i nf o  =  pd_not_aa  and 
c i ty_tx_ 1 n_i nf Q  =  city_tx_ln  and 
c i ty_t x_rel_i nf G  =  city_tx_rel  and 
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conse 1 _5er_ i nf o  =  consel_ser  and 
co_tax_ 1 n_ i nf Q  =  co_tax_ln  and 
co_tax_rel _inf o  =  co_tax_rel. 


define  primitive  pacc_iAidel  with 

pacc_wdel60_inf o  =  pacc_wdel60  and 
pacc_wdel90_inf o  =  pacc_wdel90  and 
pacc_iMdel  120_inf o  =  pacc_wdell20  and 
pacc_wdel 150_ i nf Q  =  pacc_wdell50  and 
pacc_wde 1 180_ i nf o  =  pacc_wdell80  and 
pacc_wdel_weight_val  =  (0,1000). 

define  primitive  pacc_wdel60  with 
pacc_wdel60_n  =  (0,100)  and 
"  pacc_iAjdel(SO_a  =  (0,10000). 


define  primitive  pacc_wdel90  with 
pacc_wdeI90_n  =  (0,100)  and 
pacc_wdel90_a  =  (0,10000). 


define  primitive  pacc_wdell20  with 
pacc_wdel 120_n  =  (0,100)  and 
pacc_wdel 120_a  =  (0,10000). 


define  primitive  pacc_wdell50  with 
pacc_wdell50_n  =  (0,100)  and 
pacc_wdell50_a  =  (0,10000). 


define  primitive  pacc_wdellSO  with 
pacc_wdel iaO_n  =  (0,100)  and 
pacc_wdel 180_a  =  (0,10000). 


define  primitive  suit  with 
sui t  n  =  ( 0 , 100 )  and 
suit_a  =  (0,10000)  and 
sui t_weight_val  =  (0,1000). 


define  primitive  cur_was  with 
c_w_60_info  =  c_w_60  and 
c_w_90_info  =  c_w_90  and 
c_w_120_info  =  c  w  120  and 


c_w_150_info  =  c_w_150  and 
c_w_180_info  =  c_w_iaO  and 
cur_was_weight_val  =  (0,1000). 

define  primitive  c_w_60  with 
c_w_60_n  =  (0,100)  and 
c_w_60_a  =  (0,10000). 

define  primitive  c_w_90  with 
c_w_90_n  =  (0,100)  and 
c_w_90_a  =  (0,10000). 

define  primitive  c_w_120  with 
c_w_120_n  =  (0,100)  and 
c_w_120_a  =  (0,10000). 


define  primitive  c_w_150  with 
c_w_150_n  =  (0,100)  and 
c_w_150_a  =  (0, 10000) . 

define  primitive  c_w_180  with 
c_w_lSO_n  =  (0,100)  and 

c  w  180  a  =  (0, 10000) . 


detine  primitive  delinq  with 
d_60_info  =  d_60  and 
d_90_info  =  d_90  and 
d_120_info  =  d_120  and 
d_150_info  =  d_150  and 
d_ia0_info  =  d_iaO  and 
del inq_weight_val  =  (0,1000). 


define  primitive  d_60  with 
d_60_n  =  (0,100)  and 
d  60  a  =  ( 0, 10000) . 


define  orimitive  d_90  with 
d_90_n  =  (0,100)  and 
d_90_a  =  (0,  10000)  . 

define  primitive  d_120  with 
d  120  n  =  (0, 100)  and 


(0, 10000) . 


define  primitive  cl_150  with 
d_150_n  =  (0, 100)  and 
d_150_a  =  (0, 10000)  . 


define  primitive  d_180  with 
d_ia0_n  =  (0,100)  and 
d  ISO  a  =  (0, 10000) . 


define  primitive  coll_acct  with 
coll_acct_n  =  (0,100)  and 
coll_acct_a  =  (0,10000)  and 
col l_acct_weight_val  =  (0,1000). 

define  primitive  x_30_day_del  with 
x_30_day_del_n  =  (0,100)  and 
x_30_day_del_a  =  (0,10000). 

define  primitive  bk_liq_reo  with 
bl<_l  iq_reo_n  =  (0,100). 


define  primitive  curr_acct  with 
curr_acct_n  =  (0,100). 

define  primitive  pd_coll_ac  with 
pd_coll_ac_n  =  (0,100)  and 
pd_coll_ac_a  =  (0,10000)  and 
pd_co 1 l_ac_weight_val  =  (0,1000). 

define  primitive  charge_off  with 
charge_off_n  =  (0,100)  and 
charge_off_a  =  (0,10000)  and 
charge_off _weight_val  =  (0,1000). 

define  primitive  inquiry  with 
no  of_inq  =  (0,100)  and 
inq_weight_val  =  (0,1000). 

define  primitive  foreclosure  with 

f oreclosure_weight_val  =  (0,1000). 

define  primitive  judgment  with 

judgment_weigh t_val  =  (0,1000). 


defire  crimitive  rsDO    with 

r=DO_>jeign  t_val  =  (0,1000). 

dsfir.e    primitive  pdbydlr  with 
pdbydlr_n  =  (0,100)  and 
pdbydlr_a  =  (0,100000)  and 
Ddbyd  lr_weigh t_val  =  (0,1000). 

aefine  orimitivs  insclaim  with 
insc:ai,-n_n  =  CO,  100)  and 
: -ISC  lai. T,_a  =  (0,100000)  and 
i-^sc  iaim_weight_val  =  (0,1000). 

cefir.s  orimitive  notpdaa  with 
notpdaa_n  =  (0,100)  and 
notpdaa_a  =  (0,100000)  and 
np tpdaa_weight_val  =  (0,1000). 

define  primitive  voinrepp  with 
volnrspo_n  =  (0,100)  and 
vplnrepo_a  =  (0,100000)  and 
volnrepo_weight_val  =  (0,1000). 


primitive  curwaspd 
_--^d_infp  =  cwpd  and 
cwpd_30_info  =  cwpd_30  and 


cwpd_30by2_ 


nfo  =  cwpd_30by2  and 


cwpd_30by3_inf p  =  cwpd_30by3  and 
cwpd_30by^_i nf o  =  cwpd_30by^  and 
cwpd_30by5_i nf o  =  cwpd_30by5  and 
cwpd_30by6_i nf o  =  cwpd_30by6  and 
cwpd  weiaht  val  =  (0,1000). 


i-nitive  cwpd  with 
=  (0, 100)  and 
=  (0, 10000) . 

i-"iti/e  cwpd_30  wi 
_n  =  ( 0 , 100 )  and 
a  =  (0, 10000) . 


define  primitive  cwpd_30byE  with 
cwpd_30by2_n  =  (0,100)  and 
cwpd_30by2_a  =  (0,10000). 


:-"e  :;ri,-ni-ive  cwDd_30by3  with 
-/•^Dc:  2CDy3  n  =  (0,100)  and 


cwpd_30by3_a  =  (0,10000). 


define  primitive  ciAipd_30by^  with 
cwpd  _30by'^_n  =  (0,100)  and 
cwpd_30by'^_a  =  (0,10000). 


define  primitive  ciAipd_30by5  with 
cwpd_30by5_n  =  (0,100)  and 
cwpd_30by5_a  =  (0,10000). 


define  primitive  cwpd_30by6  with 
cwpd_30by6_n  =  (0,100)  and 
cwpd_30by6_a  =  (0,10000). 


define  primitive  accpd  with 

3ccpd_30_ inf o  =  accpd_30  and 
accpd_30by2_info  =  accpd_30by2  and 
accpd _30by3_info  =  accpd_30by3  and 
accpd_30by<4-_  i  nf  o  =  accpd_30byA-  and 
accpd _30by5_ i nfo  =  accpd_30by5  and 
accpd_30by<b_  i  nf  o  =  accpd_30by6  and 
accpd_weight_val  =  (0,1000). 

define  primitive  accpd_30  with 
accpd_30_n  =  (0,100)  and 
accpd_30_a  =  (0,10000). 


define  primitive  accpd_30by2  with 

accpd_30by2_n  =  (0,100)  and 
accpd_30by2_a  =  (0,10000). 

define  primitive  accpd_30by3  with 

accpd _30by3_n  =  (0,100)  and 
accpd_30by3_a  =  (0,10000). 


define  primitive  accpd_30by'^  with 
accpd_30by'^_n  =  (0,100)  and 


accpd_30by'^_a  =  (0,10000). 


define  primitive  accpd_30by5  with 
accpd_30by5_n  =  (0,100)  and 
accpd_30by5_a  =  (0,10000). 


define  primitive  accpd_30by6  with 
accpd_30by6_n  =  (0,100)  and 
accpd_30by6_a  =  (0,10000). 


define  primitive  pacc_wpd  with 

pacc_wpd_30_inf p  =  pacc_wpd_30  and 
pacc_wpd_30by23_inf o  =  pacc_wpd_30byS3  and 
pacc_wpd_30by'^_inf o  =  pacc_wpd_30byA-  and 
pacc_wpd_30by5_ i nf o  =  pacc_wpd_30by5  and 
pacc_wpd_30by6_inf Q  =  pacc_iA)pd_30by6  and 
pacc_wpd_weight_val  =  (0,1000). 

define  primitive  pacc_wpd_30  with 
pacc_wpd_30_n  =  (0,100)  and 
pacc_wpd_30_a  =  (0,10000). 


define  primitive  pace _wpd_30by23  with 
pacc_wpd_30by23_n  =  (0,100)  and 
pacc_wpd_30by23_a  =  (0,10000). 


define  primitive  pacc_wpd_30byA-  with 
pacc_wpd_30by^_n  =  (0,100)  and 
pacc_wpd_30by'^_a  =  (0,10000). 


define  primitive  pacc_wpd_30by5  with 
pacc_wpd_30by5_n  =  (0,100)  and 
pacc_wpd_30by5_a  =  (0,10000). 


define  primitive  pace _wpd_30by6  with 
pacc_wpd_30by6_n  =  (0,100)  and 
paec_wpd_30by6_a  =  (0,10000). 


define  primitive  pd_repo  with 
pd_repa_n  =  (0,100)  and 
pd_repo_a  =  (0,10000)  and 


pd_repo_weight_val  =  (0,1000). 

define  primitive  pd_chg_off  with 
pd^chg_off_n  =  (0,100)  and 

pd_chg_off_a  =  (0,10000)  and 

pd_chg_af f _weight_val  =  (0,1000). 

define  primitive  pd_fQreclo  with 
pd_foreclo_n  =  (0,100)  and 

pd_foreclQ_a  =  (0,10000)  and 

pd_foreclQ_weight_val  =  (0,1000). 

define  primitive  bkliqreo  with 
bkliqreo_n  =  (0»100)  and 

bkliqreo_a  =  (0,10000)  and 

bk 1 iqreo_weight_val  =  (0,1000). 

define  primitive  settled  with 
settled_n  =  (0,100)  and 
settled_a  =  (0,10000)  and 
5ettled_weight_val  =  (0,1000). 

define  primitive  bk_adj_pln  with 
bk_adj_pln_n  =  (0,100)  and 
bk_adj_pln_a  =  (0,10000)  and 
bk_ad j_pln_weight_val  =  (0,1000). 

define  primitive  5cnl_nwloc  with 
scnl_nwloc_n  =  (0,100)  and 
scnl_nwloc_a  =  (0,10000)  and 
scnl_nwloc_weight_val  =  (0,1000). 

define  primitive  co_nQw_pay  with 
co_now_pay_n  =  (0,100)  and 
CQ_now_pay_a  =  (0,10000)  and 
CQ_nQw_pay_we  igh  t_val  =  (0,100(J). 

define  primitive  fQre_proc  with 
fore_proc_n  =  (0,100)  and 
fore_proc_a  =  (0,10000)  and 
fore_proc_weight_val  =  (0,1000). 


define  primitive  gov_claim  with 
gov_claim_n  =  (0,100)  and 
gov_claim_a  =  (0,10000)  and 
gov_c laim_weight_val  =  (0,1000). 

define  primitive  close_np_aa  with 
c lose_np_aa_n  =  (0,100)  and 
close_np_aa_a  =  (0,10000)  and 
clo5e_np_aa_weight_val  =  (0,1000), 


define  primitive  scnl  with 
scnl_n  =  (0,100)  and 
scnl_a  =  (0,10000)  and 
5cnl_weight_«/al  =  (0,1000). 

define  primitive  fed_tax_ln  with 
fed_tax_ln_n  =  (0,100)  and 
fed_tax_ln_a  =  (0,10000)  and 
fed_tax_ln_weight_val  =  (0,1000). 

define  primitive  fed_tax_rel  with 
fed_tax_rel_n  =  (0,100)  and 
fed_tax_rel_a  =  (0,10000)  and 
fed_tax_rel_weight_val  =  (0,1000). 

define  primitive  judgmt_5at  with 
judgmt_sat_n  =  (0,100)  and 
judgmt_sat_a  =  (0,10000)  and 
judgmt_sat_weight_val  =  (0,1000). 

define  primitive  judg_vacat  with 
judg_vacat_n  =  (0,100)  and 
judg_vacat_a  =  (0,10000)  and 
jLidg_vacat_weight_val  =  (0,1000). 

define  primitive  mech_lien  with 
mech_lien_n  =  (0,100)  and 
mech_lien_a  =  (0,10000)  and 
fnech_l  ien_weight_val  =  (0,1000). 

define  primitive  mech_rele  with 
mech_rele_n  =  (0,100)  and 
mech_rele_a  =  (0,10000)  and 
mech_rele_weight_val  =  (0,1000). 

define  primitive  mn_mtg_fil  with 
mn_mtg_fil_n  =  (0,100)  and 


mn_mtg_fil_a  =  (0,10000)  and 
mn_mtg_f 1 l_weight_val  =  (0,1000). 

define  primitive  nt_respon  with 
nt_respon_n  =  (0,100)  and 
nt_respon_a  =  (0,10000)  and 
nt_respon_weight_val  =  (0,1000). 

define  primitive  stat_tx_ln  with 
Btat_tx_ln_n  =  (0,100)  and 
stat_tx_ln_a  =  (0,10000)  and 
5tat_tx_In_weight_val  =  (0,1000). 

define  primitive  sta_tx_rel  with 
sta_tx_rel_n  =  (0,100)  and 
sta_tx_rel_a  =  (0,10000)  and 
sta_tx_rel _weight_val  =  (0,1000). 

define  primitive  5uit_dismd  with 
5uit_di5md_n  =  (0,100)  and 
suit_dismd_a  =  (0,10000)  and 
sui t_dismd_weight_val  =  (0,1000). 

define  primitive  wage_asign  with 
wage_asign_n  =  (0,100)  and 
wage_asign_a  =  (0,10000)  and 
wage_asign_weight_va 1  =  (0,1000). 

detine  primitive  wa_release  with 
wa_release_n  =  (0,100)  and 
wa_release_a  =  (0,10000)  and 
wa_release_weight_val  =  (0,1000). 

define  primitive  refinanced  with 
refinanced_n  =  (0,100)  and 
refinanced_a  =  (0,10000)  and 
ref inanced_weight_val  =  (0,1000). 

define  primitive  cr_cd_lQst  with 
cr_cd_lost_n  =  (0,100)  and 
cr_cd_lost_a  =  (0,10000)  and 
cr_cd_lost_weight_val  =  (0,1000). 

define  primitive  clo5_inac  with 
cIo5_inac_n  =  (0,100)  and 
clas_inac_a  =  (0,10000)  and 
c los_inac_weight_val  =  (0,1000). 


define  primitive  transfered  with 
transfered_n  =  (0,100)  and 
transfered_a  =  (0,10000)  and 
transf ered_weight_val  =  (0,1000). 

define  primitive  toci_new_rt  with 
too_new_rt_n  =  (0,100)  and 
too_new_rt_a  =  (0,10000)  and 
too_new_r t_we igh t_val  =  (0,1000). 

derine  primitive  □aid_5ati5  with 
paid_satis_n  =  (0,100)  and 
paid_5atis_a  =  (0,10000)  ana 
paid_sat i s_weiqht_val  =  (0,1000). 

aefine  primitive  paid_acct  with 
paid_acct_n  =  (0,100)  and 
paid_acct_a  =  (0,10000)  and 
paid_acct_weight_val  =  (0,1000). 

define  primitive  cr_ln_clos  with 
cr_ln_clos_n  =  (0,100)  and 
cr_ln_cla5_a  =  (0,10000)  and 
cr_ln_c los_weight_val  =  (0,1000). 

define  primitive  deceased  with 
deceased_n  =  (0,100)  and 
decea5ed_a  =  (0,10000)  and 
deceased_weight_val  =  (0,1000). 

define  primitive  redmd_repo  with 
redmd_repo_n  =  (0,100)  and 
redma_repo_a  =  (0,10000)  and 
redmd_repo_we igh t_va 1  =  (0,1000). 

define  primitive  cur_was_col  with 
cur _was_co l_n  =  (0,100)  and 
cur_was_co l_a  =  (0,10000)  and 
cur_was_co 1 _weight_val  =  (0,1000). 

define  crimitive  cr_ln_rn5t  with 
cr_ln_rnst_n  =  (0,100)  and 
cr_ln_rn5t_a  =  (0,10000)  and 
cr_ln_rnst_weight_val  =  (0,1000). 

define  primitive  cur_was_for  with 
CLir_was_f  or_n  =  (0,100)  and 
cur_wa5_f or_a  =  (0,10000)  and 
cur_was_for_weight_val  =  (0,1000). 
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detine  primitive  pd_not_aa  with 
pd_not_aa_n  =  (0,100)  and 
pd_not_aa_a  =  (0,10000)  and 
pd_not_aa_weight_val  =  (0,1000). 

define  primitive  city_tx_ln  with 
city_tx_ln_n  =  (0,100)  and 
city_tx_ln_a  =  (0,10000)  and 
ci ty_tx_ln_weight_val  =  (0,1000). 

define  primitive  city_tx_rel  with 
c i ty_tx_rel_n  =  (0,100)  and 
ci ty_tx_rel_a  =  (0,10000)  and 
ci ty_tx_rel_weight_val  =  (0,1000). 

define  primitive  consel_ser  with 
consel_ser_n  =  (0,100)  and 
consel_ser_a  =  (0,10000)  and 
consel_ser_weight_val  =  (0,1000). 

define  primitive  co_tax_ln  with 
co_tax_ln_n  =  (0,100)  and 
co_tax_ln_a  =  (0,10000)  and 
co_tax_ln_weight_val  =  (0,1000). 


detine  primitive  CQ_tax_rel  with 
co_tax_rel_n  =  (0,100)  and 
co_tax_rel_a  =  (0,10000)  and 
co_tax_rel_weight_vaI  =  (0,1000). 


END  OF  CODE 


APPENDIX  B 
TRW  CREDIT  REMARKS 


This  appendix  describes  the  102  credit  remarks 
currently  used  by  TRW  and  employed  in  MFTES .  They  were 
included  to  broaden  the  program's  documentation  and 
facilitate  future  maintenance  efforts. 


INQUIRY: 


LR  LO  LOST 
CLOSE  INAC 
TRANSFERED 
TOO  NEW  RT 
REFINANCED 
CURR  ACCT: 


PAID  SATIS: 
PAID  ACCT: 

CR  LN  CLOS: 

DECEASED: 
CUR  WAS  DL: 
CUH  WAS  30: 
CUR  WAS  30-2: 

LUR  WAS  30-3: 

CUR  WAS  30-^: 

CUR  WAS  30-5: 

CUR  WAS  30+6: 


ITEMS  OF  PRIVATE  RECORD 

A  copy  of  the  credit  profile  has  been 

sent  to  this  credit  grantor  at  their 

request . 

Credit  card  lost  or  stolen. 

Closed  inactive  account. 

Account  transferred  to  another  office. 

Too  new  to  rate. 

Account  renewed  or  refinanced. 

This  is  either  an  open  or  closed  account 

in  good  standing.   If  the  account  is  a 

credit  card  or  charge  account,  it  should 

be  available  for  use  and  there  may  be  a 

balance  due.   If  the  account  is  closed, 

there  were  no  past  due  amounts  reported 

and  i  t  was  pai  d . 

Closed  account/paid  satisfactory. 

Closed  account/zero  balance/not  rated  by 

credit  grantor. 

Credit  line  c 1 osed /reason  unknown  or  by 

consumer  r equest / there  may  be  a  balance 

due. 

Consumer  deceased . 

Current  account  was  past  due. 

was  30  days  past  due. 

/%/as  30  days  past  due 


Current  account 
Current  account 
tw 1 ce . 

Current  account 
three  times. 
Current  account 
four  times. 
Current  account 
five  t  imes . 
Current  account 
t 1 mes  or  more . 


vias  30  days  past  due 

\jas  30  days  past  due 

\jas  30  days  past  due 

^Jas  30  days  past  due  six 


CUR  WAS  60:  Current  account  was  60  days  delinquent. 
CUR  WAS  90:  Current  account  was  90  days  delinquent. 
CUR  WAS  120:  Current  account  was  120  days  delinquent. 
CUR  WAS  150:  Current  account  was  150  days  delinquent. 
CUR  WAS  ISO:  Current  account  was  ISO  days  delinquent. 
REDMD  REPO:  Account  was  a  repossess i on/ now  redeemed. 
CUR  WAS  CGL :    Current  account  was  a  collection 

account . 
CR  IN  RNST :      Account  now  available  for  use  and  is  in 

good  standing.   Was  a  closed  account. 
CUR  WAS  FOR:    Current  account  foreclosure  was  started. 
PD  NOT  AA :       Paid  account.   Some  payments  made  past 

the  agreed  due  dates. 
PD  WAS  30:      Paid  account/was  past  due  30  days. 
PD  WAS  30-2:    Paid  account/was  past  due  30  days  2  or  3 

t  imes . 
PD  WAS  30--^:    Paid  account/was  past  due  30  days  '^ 

t  imes . 
PD  WAS  30-5:    Paid  account/was  past  due  30  days  5 

t  imes . 
PD  WAS  30+6:    Paid  account/was  past  due  30  days  6 

times  or  more. 
PD  WAS  60:       Paid  account/was  delinquent  60  days. 
PD  WAS  90:      Paid  account/was  delinquent  90  days. 
PD  WAS  120:     Paid  account/was  delinquent  120  days. 
PD  WAS  150:      Paid  account/was  delinquent  150  days. 
PD  WAS  ISO:     Paid  account/was  delinquent  ISO  days. 
PD  COLL  AC:      Paid  account/was  a  collection  account 

insurance  claim  or  education  claim. 
PD  REPO:         Paid  account/was  a  repossession. 
PD  CHG  OFF:      Paid  account/was  a  CHARGE-OFF. 
PD  FQRECLO:      Paid  account.  A  foreclosure  was  started. 
PD  BY  DLER:      Credit  grantor  paid  by  company  who 

originally  sold  the  merchandise. 
BK  LIQ  REG:      Debt  included  in  or  discharged  through 

Bankruptcy  Chapter  7  or  11. 
SETTLED:         Account  legally  paid  in  full  for  less 

than  the  full  balance. 
BK  ADJ  PLN :      Debt  included  m  or  completed  through 

Bankruptcy  Chapter  3. 
NU 1  PD  AA:  Account  not  being  paid  as  agreed. 
30  DAY  DEL:  Account  past  due  30  days. 
30  2  TIMES:  Account  past  due  30  days  2  times. 
30  3  TIMES:  Account  past  due  30  days  3  times. 
30  ^  TIMES:  Account  past  due  30  days  ^  times. 
30  5  TIMES:  Account  past  due  30  days  5  times. 
30  6+TIMES:      Account  past  due  30  days  6  times  or 

more  . 


30  WAS  60: 

DELINQ  60: 
DEL  UAS  90: 

DELINQ  90: 
DEL  WAS  lEO: 

DELINQ  laO: 
DELINQ  150: 
DELINQ  180: 
SCNL  NWLOC: 

CD  NOW  PAY: 
FOREPRGC: 
GOV  CLAIM: 

CLOSE  NP  AA: 
INS  CLAIM: 

COLL  ACCT: 


FORECLOSURE: 


VOLLIN  REPO: 
REPO: 


CHARGE  OFF: 
iaCNL: 


Account  was  delinquent  60  days/now  30 

days  . 

Account  delinquent  60  days. 

Account  was  delinquent  90  days/now  60 

days  . 

Account  delinquent  90  days. 

Account  was  delinquent  120  days/now  30, 

60  or  90  days. 

Account  delinquent  120  days. 

Account  delinquent  150  days. 

Account  delinquent  ISO  days. 

Credit  qrantor  could  not  locate 

consumer /consumer  now  located. 

Now  paying,  was  a  charge-off. 

Foreclosure  proceeding  started. 

Claim  filed  with  government  for  insured 

portion  of  balance  on  a  loan. 

Credit  line  closed/not  paying  as  agreed. 

Claim  filed  for  payment  of  insured 

portion  of  balance. 

Account  seriously  past  due/account 

assigned  to  attorney  collection  agency 

or  credit  grantor's  internal  collection 

department . 

Credit  grantor  sold  collateral  to 

settle  defaulted  mortgage. 

Voluntary  repossession. 

Merchandise  was  taken  back  by  credit 

grantor ; there  may  be  a  balance  due. 

Unpaid  balance  reported  as  a  loss  by 

credit  grantor. 

Credit  grantor  cannot  locate  consumer. 


ITEMS  OF  PUBLIC  RECORD 


BK  7  FILE:       Voluntary  or     involuntary  Petition  in 

Bankruptcy.  Chapter  7- < L i qu i da t i o n ) 

f i led  . 
bh,  -  LiSC:       Voluntary  or  involuntary  Petition  m 

Bankruptcy.  Chapter  7- ( L i qu i da t i on ) 

d  i  scharged . 
BK  7  DISM:       Voluntary  or  involuntary  Petition  in 

Bankruptcy.  Chapter  7- ( L i qu i dat i on ) 

di  smissed . 
BK  11  FILE:      Voluntary  or  involuntary  Petition  in 

Bankruptcy.  Chapter  1  1  - ( Rear gan i za 1 1 on ) 

filed. 


BK  11  DISC:      Voluntary  or  involuntary  Petition  in 

Bankruptcy.  Chapter  1 1 - ( Reorgan i zat i on ) 

d  ischarged . 
BK  11  DISM:      Voluntary  or  involuntary  Petition  in 

Bankruptcy  Chapter  1 1 - ( Reorgani zat ion ) 

d  i  smi  ssed  . 
BK  13  FILE:      Petition  in  Bankruptcy  Chapter  13- 

(Adjustment  of  Debt)  filed. 
BK  13  DISM:      Petition  in  Bankruptcy  Chapter  13- 

(Adjustment  of  Debt)  dismissed. 
CITY  TX  LN:     City  tax  lien 
CITY  TX  REL:    City  tax  Released 
CGNSEL  SER:     Debt  Counseling  Service 
CO  TAX  LN:      County  Tax  Lien 
CO  TAX  REL:     County  Tax  Released 
FED  TAX  LN:      Federal  Tax  Lien 
FED  TX  REL:      Federal  Tax  Released 
JUDGMENT:        Judgment 
JUDGMT  SAT:     Judgment  Satisfied 
JUDG  VACAT:     Judgment  Vacated  or  Reversed 
MECH  LIEN:      Mechanic's  Lien 
MECH  RELE:      Mechanic's  Lien  Released 
MN  MTG  FIL:      Manual  Mortgage  Report  (if  on  written  or 

teleprinter  profile,  contact  your  local 

TRW  Information  Services  Office). 
NT  RESPON:      Not  Responsible  Notice,  e.g.,  husband  or 

wife  claims  not  responsible  for  debts 

incurred  by  the  spouse. 
STAT  fX  LN:      State  Tax  Lien 
STAT  TX  REL:    State  Tax  Released 
SUIT:  Suit 

SUIT  DISMD:     Suit  Dismissed  or  Discontinued 
WAGE  ASI6N:     Wage  Assignment 
W/A  RELEASD:    Wage  Assignment  Released 
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